xref: /freebsd/contrib/sendmail/src/util.c (revision 4313cc83440a39bdf976f955b1d4d3f3c4d1552f)
1c2aa98e2SPeter Wemm /*
25dd76dd0SGregory Neil Shapiro  * Copyright (c) 1998-2007, 2009 Proofpoint, 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>
1540266059SGregory Neil Shapiro 
16*4313cc83SGregory Neil Shapiro SM_RCSID("@(#)$Id: util.c,v 8.427 2013-11-22 20:51:57 ca Exp $")
1740266059SGregory Neil Shapiro 
18d0cef73dSGregory Neil Shapiro #include <sm/sendmail.h>
19c2aa98e2SPeter Wemm #include <sysexits.h>
2040266059SGregory Neil Shapiro #include <sm/xtrap.h>
2106f25ae9SGregory Neil Shapiro 
2240266059SGregory Neil Shapiro /*
23e92d3f3fSGregory Neil Shapiro **  NEWSTR -- Create a copy of a C string
24e92d3f3fSGregory Neil Shapiro **
25e92d3f3fSGregory Neil Shapiro **	Parameters:
26e92d3f3fSGregory Neil Shapiro **		s -- the string to copy.
27e92d3f3fSGregory Neil Shapiro **
28e92d3f3fSGregory Neil Shapiro **	Returns:
29e92d3f3fSGregory Neil Shapiro **		pointer to newly allocated string.
30e92d3f3fSGregory Neil Shapiro */
31e92d3f3fSGregory Neil Shapiro 
32e92d3f3fSGregory Neil Shapiro char *
33e92d3f3fSGregory Neil Shapiro newstr(s)
34e92d3f3fSGregory Neil Shapiro 	const char *s;
35e92d3f3fSGregory Neil Shapiro {
36e92d3f3fSGregory Neil Shapiro 	size_t l;
37e92d3f3fSGregory Neil Shapiro 	char *n;
38e92d3f3fSGregory Neil Shapiro 
39e92d3f3fSGregory Neil Shapiro 	l = strlen(s);
40e92d3f3fSGregory Neil Shapiro 	SM_ASSERT(l + 1 > l);
41e92d3f3fSGregory Neil Shapiro 	n = xalloc(l + 1);
42e92d3f3fSGregory Neil Shapiro 	sm_strlcpy(n, s, l + 1);
43e92d3f3fSGregory Neil Shapiro 	return n;
44e92d3f3fSGregory Neil Shapiro }
45e92d3f3fSGregory Neil Shapiro 
46e92d3f3fSGregory Neil Shapiro /*
47c2aa98e2SPeter Wemm **  ADDQUOTES -- Adds quotes & quote bits to a string.
48c2aa98e2SPeter Wemm **
4940266059SGregory Neil Shapiro **	Runs through a string and adds backslashes and quote bits.
50c2aa98e2SPeter Wemm **
51c2aa98e2SPeter Wemm **	Parameters:
52c2aa98e2SPeter Wemm **		s -- the string to modify.
5340266059SGregory Neil Shapiro **		rpool -- resource pool from which to allocate result
54c2aa98e2SPeter Wemm **
55c2aa98e2SPeter Wemm **	Returns:
56c2aa98e2SPeter Wemm **		pointer to quoted string.
57c2aa98e2SPeter Wemm */
58c2aa98e2SPeter Wemm 
59c2aa98e2SPeter Wemm char *
6040266059SGregory Neil Shapiro addquotes(s, rpool)
61c2aa98e2SPeter Wemm 	char *s;
6240266059SGregory Neil Shapiro 	SM_RPOOL_T *rpool;
63c2aa98e2SPeter Wemm {
64c2aa98e2SPeter Wemm 	int len = 0;
65c2aa98e2SPeter Wemm 	char c;
66c2aa98e2SPeter Wemm 	char *p = s, *q, *r;
67c2aa98e2SPeter Wemm 
68c2aa98e2SPeter Wemm 	if (s == NULL)
69c2aa98e2SPeter Wemm 		return NULL;
70c2aa98e2SPeter Wemm 
71c2aa98e2SPeter Wemm 	/* Find length of quoted string */
72c2aa98e2SPeter Wemm 	while ((c = *p++) != '\0')
73c2aa98e2SPeter Wemm 	{
74c2aa98e2SPeter Wemm 		len++;
75c2aa98e2SPeter Wemm 		if (c == '\\' || c == '"')
76c2aa98e2SPeter Wemm 			len++;
77c2aa98e2SPeter Wemm 	}
78c2aa98e2SPeter Wemm 
7940266059SGregory Neil Shapiro 	q = r = sm_rpool_malloc_x(rpool, len + 3);
80c2aa98e2SPeter Wemm 	p = s;
81c2aa98e2SPeter Wemm 
82c2aa98e2SPeter Wemm 	/* add leading quote */
83c2aa98e2SPeter Wemm 	*q++ = '"';
84c2aa98e2SPeter Wemm 	while ((c = *p++) != '\0')
85c2aa98e2SPeter Wemm 	{
86c2aa98e2SPeter Wemm 		/* quote \ or " */
87c2aa98e2SPeter Wemm 		if (c == '\\' || c == '"')
88c2aa98e2SPeter Wemm 			*q++ = '\\';
89c2aa98e2SPeter Wemm 		*q++ = c;
90c2aa98e2SPeter Wemm 	}
91c2aa98e2SPeter Wemm 	*q++ = '"';
92c2aa98e2SPeter Wemm 	*q = '\0';
93c2aa98e2SPeter Wemm 	return r;
94c2aa98e2SPeter Wemm }
9513bd1963SGregory Neil Shapiro 
9613bd1963SGregory Neil Shapiro /*
97b6bacd31SGregory Neil Shapiro **  STRIPBACKSLASH -- Strip all leading backslashes from a string, provided
98b6bacd31SGregory Neil Shapiro **	the following character is alpha-numerical.
9913bd1963SGregory Neil Shapiro **
10013bd1963SGregory Neil Shapiro **	This is done in place.
10113bd1963SGregory Neil Shapiro **
10213bd1963SGregory Neil Shapiro **	Parameters:
10313bd1963SGregory Neil Shapiro **		s -- the string to strip.
10413bd1963SGregory Neil Shapiro **
10513bd1963SGregory Neil Shapiro **	Returns:
10613bd1963SGregory Neil Shapiro **		none.
10713bd1963SGregory Neil Shapiro */
10813bd1963SGregory Neil Shapiro 
10913bd1963SGregory Neil Shapiro void
11013bd1963SGregory Neil Shapiro stripbackslash(s)
11113bd1963SGregory Neil Shapiro 	char *s;
11213bd1963SGregory Neil Shapiro {
11313bd1963SGregory Neil Shapiro 	char *p, *q, c;
11413bd1963SGregory Neil Shapiro 
11513bd1963SGregory Neil Shapiro 	if (s == NULL || *s == '\0')
11613bd1963SGregory Neil Shapiro 		return;
11713bd1963SGregory Neil Shapiro 	p = q = s;
11813bd1963SGregory Neil Shapiro 	while (*p == '\\' && (p[1] == '\\' || (isascii(p[1]) && isalnum(p[1]))))
11913bd1963SGregory Neil Shapiro 		p++;
12013bd1963SGregory Neil Shapiro 	do
12113bd1963SGregory Neil Shapiro 	{
12213bd1963SGregory Neil Shapiro 		c = *q++ = *p++;
12313bd1963SGregory Neil Shapiro 	} while (c != '\0');
12413bd1963SGregory Neil Shapiro }
12513bd1963SGregory Neil Shapiro 
12640266059SGregory Neil Shapiro /*
127c2aa98e2SPeter Wemm **  RFC822_STRING -- Checks string for proper RFC822 string quoting.
128c2aa98e2SPeter Wemm **
129c2aa98e2SPeter Wemm **	Runs through a string and verifies RFC822 special characters
130c2aa98e2SPeter Wemm **	are only found inside comments, quoted strings, or backslash
131c2aa98e2SPeter Wemm **	escaped.  Also verified balanced quotes and parenthesis.
132c2aa98e2SPeter Wemm **
133c2aa98e2SPeter Wemm **	Parameters:
134c2aa98e2SPeter Wemm **		s -- the string to modify.
135c2aa98e2SPeter Wemm **
136c2aa98e2SPeter Wemm **	Returns:
13740266059SGregory Neil Shapiro **		true iff the string is RFC822 compliant, false otherwise.
138c2aa98e2SPeter Wemm */
139c2aa98e2SPeter Wemm 
140c2aa98e2SPeter Wemm bool
141c2aa98e2SPeter Wemm rfc822_string(s)
142c2aa98e2SPeter Wemm 	char *s;
143c2aa98e2SPeter Wemm {
14440266059SGregory Neil Shapiro 	bool quoted = false;
145c2aa98e2SPeter Wemm 	int commentlev = 0;
146c2aa98e2SPeter Wemm 	char *c = s;
147c2aa98e2SPeter Wemm 
148c2aa98e2SPeter Wemm 	if (s == NULL)
14940266059SGregory Neil Shapiro 		return false;
150c2aa98e2SPeter Wemm 
151c2aa98e2SPeter Wemm 	while (*c != '\0')
152c2aa98e2SPeter Wemm 	{
153c2aa98e2SPeter Wemm 		/* escaped character */
154c2aa98e2SPeter Wemm 		if (*c == '\\')
155c2aa98e2SPeter Wemm 		{
156c2aa98e2SPeter Wemm 			c++;
157c2aa98e2SPeter Wemm 			if (*c == '\0')
15840266059SGregory Neil Shapiro 				return false;
159c2aa98e2SPeter Wemm 		}
160c2aa98e2SPeter Wemm 		else if (commentlev == 0 && *c == '"')
161c2aa98e2SPeter Wemm 			quoted = !quoted;
162c2aa98e2SPeter Wemm 		else if (!quoted)
163c2aa98e2SPeter Wemm 		{
164c2aa98e2SPeter Wemm 			if (*c == ')')
165c2aa98e2SPeter Wemm 			{
166c2aa98e2SPeter Wemm 				/* unbalanced ')' */
167c2aa98e2SPeter Wemm 				if (commentlev == 0)
16840266059SGregory Neil Shapiro 					return false;
169c2aa98e2SPeter Wemm 				else
170c2aa98e2SPeter Wemm 					commentlev--;
171c2aa98e2SPeter Wemm 			}
172c2aa98e2SPeter Wemm 			else if (*c == '(')
173c2aa98e2SPeter Wemm 				commentlev++;
174c2aa98e2SPeter Wemm 			else if (commentlev == 0 &&
175c2aa98e2SPeter Wemm 				 strchr(MustQuoteChars, *c) != NULL)
17640266059SGregory Neil Shapiro 				return false;
177c2aa98e2SPeter Wemm 		}
178c2aa98e2SPeter Wemm 		c++;
179c2aa98e2SPeter Wemm 	}
18040266059SGregory Neil Shapiro 
181c2aa98e2SPeter Wemm 	/* unbalanced '"' or '(' */
18240266059SGregory Neil Shapiro 	return !quoted && commentlev == 0;
183c2aa98e2SPeter Wemm }
184d0cef73dSGregory Neil Shapiro 
18540266059SGregory Neil Shapiro /*
186065a643dSPeter Wemm **  SHORTEN_RFC822_STRING -- Truncate and rebalance an RFC822 string
187065a643dSPeter Wemm **
18806f25ae9SGregory Neil Shapiro **	Arbitrarily shorten (in place) an RFC822 string and rebalance
189065a643dSPeter Wemm **	comments and quotes.
190065a643dSPeter Wemm **
191065a643dSPeter Wemm **	Parameters:
192065a643dSPeter Wemm **		string -- the string to shorten
193065a643dSPeter Wemm **		length -- the maximum size, 0 if no maximum
194065a643dSPeter Wemm **
195065a643dSPeter Wemm **	Returns:
19640266059SGregory Neil Shapiro **		true if string is changed, false otherwise
197065a643dSPeter Wemm **
198065a643dSPeter Wemm **	Side Effects:
199065a643dSPeter Wemm **		Changes string in place, possibly resulting
200065a643dSPeter Wemm **		in a shorter string.
201065a643dSPeter Wemm */
202065a643dSPeter Wemm 
203065a643dSPeter Wemm bool
204065a643dSPeter Wemm shorten_rfc822_string(string, length)
205065a643dSPeter Wemm 	char *string;
206065a643dSPeter Wemm 	size_t length;
207065a643dSPeter Wemm {
20840266059SGregory Neil Shapiro 	bool backslash = false;
20940266059SGregory Neil Shapiro 	bool modified = false;
21040266059SGregory Neil Shapiro 	bool quoted = false;
211065a643dSPeter Wemm 	size_t slen;
212065a643dSPeter Wemm 	int parencount = 0;
213065a643dSPeter Wemm 	char *ptr = string;
214065a643dSPeter Wemm 
215065a643dSPeter Wemm 	/*
216065a643dSPeter Wemm 	**  If have to rebalance an already short enough string,
217065a643dSPeter Wemm 	**  need to do it within allocated space.
218065a643dSPeter Wemm 	*/
219193538b7SGregory Neil Shapiro 
220065a643dSPeter Wemm 	slen = strlen(string);
221065a643dSPeter Wemm 	if (length == 0 || slen < length)
222065a643dSPeter Wemm 		length = slen;
223065a643dSPeter Wemm 
224065a643dSPeter Wemm 	while (*ptr != '\0')
225065a643dSPeter Wemm 	{
226065a643dSPeter Wemm 		if (backslash)
227065a643dSPeter Wemm 		{
22840266059SGregory Neil Shapiro 			backslash = false;
229065a643dSPeter Wemm 			goto increment;
230065a643dSPeter Wemm 		}
231065a643dSPeter Wemm 
232065a643dSPeter Wemm 		if (*ptr == '\\')
23340266059SGregory Neil Shapiro 			backslash = true;
234065a643dSPeter Wemm 		else if (*ptr == '(')
235065a643dSPeter Wemm 		{
236065a643dSPeter Wemm 			if (!quoted)
237065a643dSPeter Wemm 				parencount++;
238065a643dSPeter Wemm 		}
239065a643dSPeter Wemm 		else if (*ptr == ')')
240065a643dSPeter Wemm 		{
241065a643dSPeter Wemm 			if (--parencount < 0)
242065a643dSPeter Wemm 				parencount = 0;
243065a643dSPeter Wemm 		}
244065a643dSPeter Wemm 
245065a643dSPeter Wemm 		/* Inside a comment, quotes don't matter */
246065a643dSPeter Wemm 		if (parencount <= 0 && *ptr == '"')
247065a643dSPeter Wemm 			quoted = !quoted;
248065a643dSPeter Wemm 
249065a643dSPeter Wemm increment:
250065a643dSPeter Wemm 		/* Check for sufficient space for next character */
25106f25ae9SGregory Neil Shapiro 		if (length - (ptr - string) <= (size_t) ((backslash ? 1 : 0) +
252065a643dSPeter Wemm 						parencount +
253065a643dSPeter Wemm 						(quoted ? 1 : 0)))
254065a643dSPeter Wemm 		{
255065a643dSPeter Wemm 			/* Not enough, backtrack */
256065a643dSPeter Wemm 			if (*ptr == '\\')
25740266059SGregory Neil Shapiro 				backslash = false;
258065a643dSPeter Wemm 			else if (*ptr == '(' && !quoted)
259065a643dSPeter Wemm 				parencount--;
260065a643dSPeter Wemm 			else if (*ptr == '"' && parencount == 0)
26140266059SGregory Neil Shapiro 				quoted = false;
262065a643dSPeter Wemm 			break;
263065a643dSPeter Wemm 		}
264065a643dSPeter Wemm 		ptr++;
265065a643dSPeter Wemm 	}
266065a643dSPeter Wemm 
267065a643dSPeter Wemm 	/* Rebalance */
268065a643dSPeter Wemm 	while (parencount-- > 0)
269065a643dSPeter Wemm 	{
270065a643dSPeter Wemm 		if (*ptr != ')')
271065a643dSPeter Wemm 		{
27240266059SGregory Neil Shapiro 			modified = true;
273065a643dSPeter Wemm 			*ptr = ')';
274065a643dSPeter Wemm 		}
275065a643dSPeter Wemm 		ptr++;
276065a643dSPeter Wemm 	}
277065a643dSPeter Wemm 	if (quoted)
278065a643dSPeter Wemm 	{
279065a643dSPeter Wemm 		if (*ptr != '"')
280065a643dSPeter Wemm 		{
28140266059SGregory Neil Shapiro 			modified = true;
282065a643dSPeter Wemm 			*ptr = '"';
283065a643dSPeter Wemm 		}
284065a643dSPeter Wemm 		ptr++;
285065a643dSPeter Wemm 	}
286065a643dSPeter Wemm 	if (*ptr != '\0')
287065a643dSPeter Wemm 	{
28840266059SGregory Neil Shapiro 		modified = true;
289065a643dSPeter Wemm 		*ptr = '\0';
290065a643dSPeter Wemm 	}
291065a643dSPeter Wemm 	return modified;
292065a643dSPeter Wemm }
293d0cef73dSGregory Neil Shapiro 
29440266059SGregory Neil Shapiro /*
295065a643dSPeter Wemm **  FIND_CHARACTER -- find an unquoted character in an RFC822 string
296065a643dSPeter Wemm **
297065a643dSPeter Wemm **	Find an unquoted, non-commented character in an RFC822
298065a643dSPeter Wemm **	string and return a pointer to its location in the
299065a643dSPeter Wemm **	string.
300065a643dSPeter Wemm **
301065a643dSPeter Wemm **	Parameters:
302065a643dSPeter Wemm **		string -- the string to search
303065a643dSPeter Wemm **		character -- the character to find
304065a643dSPeter Wemm **
305065a643dSPeter Wemm **	Returns:
306065a643dSPeter Wemm **		pointer to the character, or
307065a643dSPeter Wemm **		a pointer to the end of the line if character is not found
308065a643dSPeter Wemm */
309065a643dSPeter Wemm 
310065a643dSPeter Wemm char *
311065a643dSPeter Wemm find_character(string, character)
312065a643dSPeter Wemm 	char *string;
31306f25ae9SGregory Neil Shapiro 	int character;
314065a643dSPeter Wemm {
31540266059SGregory Neil Shapiro 	bool backslash = false;
31640266059SGregory Neil Shapiro 	bool quoted = false;
317065a643dSPeter Wemm 	int parencount = 0;
318065a643dSPeter Wemm 
319065a643dSPeter Wemm 	while (string != NULL && *string != '\0')
320065a643dSPeter Wemm 	{
321065a643dSPeter Wemm 		if (backslash)
322065a643dSPeter Wemm 		{
32340266059SGregory Neil Shapiro 			backslash = false;
324065a643dSPeter Wemm 			if (!quoted && character == '\\' && *string == '\\')
325065a643dSPeter Wemm 				break;
326065a643dSPeter Wemm 			string++;
327065a643dSPeter Wemm 			continue;
328065a643dSPeter Wemm 		}
329065a643dSPeter Wemm 		switch (*string)
330065a643dSPeter Wemm 		{
331065a643dSPeter Wemm 		  case '\\':
33240266059SGregory Neil Shapiro 			backslash = true;
333065a643dSPeter Wemm 			break;
334065a643dSPeter Wemm 
335065a643dSPeter Wemm 		  case '(':
336065a643dSPeter Wemm 			if (!quoted)
337065a643dSPeter Wemm 				parencount++;
338065a643dSPeter Wemm 			break;
339065a643dSPeter Wemm 
340065a643dSPeter Wemm 		  case ')':
341065a643dSPeter Wemm 			if (--parencount < 0)
342065a643dSPeter Wemm 				parencount = 0;
343065a643dSPeter Wemm 			break;
344065a643dSPeter Wemm 		}
345065a643dSPeter Wemm 
346065a643dSPeter Wemm 		/* Inside a comment, nothing matters */
347065a643dSPeter Wemm 		if (parencount > 0)
348065a643dSPeter Wemm 		{
349065a643dSPeter Wemm 			string++;
350065a643dSPeter Wemm 			continue;
351065a643dSPeter Wemm 		}
352065a643dSPeter Wemm 
353065a643dSPeter Wemm 		if (*string == '"')
354065a643dSPeter Wemm 			quoted = !quoted;
355065a643dSPeter Wemm 		else if (*string == character && !quoted)
356065a643dSPeter Wemm 			break;
357065a643dSPeter Wemm 		string++;
358065a643dSPeter Wemm 	}
359065a643dSPeter Wemm 
360065a643dSPeter Wemm 	/* Return pointer to the character */
361065a643dSPeter Wemm 	return string;
362065a643dSPeter Wemm }
36340266059SGregory Neil Shapiro 
36440266059SGregory Neil Shapiro /*
36540266059SGregory Neil Shapiro **  CHECK_BODYTYPE -- check bodytype parameter
366c2aa98e2SPeter Wemm **
36740266059SGregory Neil Shapiro **	Parameters:
36840266059SGregory Neil Shapiro **		bodytype -- bodytype parameter
36940266059SGregory Neil Shapiro **
37040266059SGregory Neil Shapiro **	Returns:
37140266059SGregory Neil Shapiro **		BODYTYPE_* according to parameter
37240266059SGregory Neil Shapiro **
37340266059SGregory Neil Shapiro */
37440266059SGregory Neil Shapiro 
37540266059SGregory Neil Shapiro int
37640266059SGregory Neil Shapiro check_bodytype(bodytype)
37740266059SGregory Neil Shapiro 	char *bodytype;
37840266059SGregory Neil Shapiro {
37940266059SGregory Neil Shapiro 	/* check body type for legality */
38040266059SGregory Neil Shapiro 	if (bodytype == NULL)
38140266059SGregory Neil Shapiro 		return BODYTYPE_NONE;
38240266059SGregory Neil Shapiro 	if (sm_strcasecmp(bodytype, "7BIT") == 0)
38340266059SGregory Neil Shapiro 		return BODYTYPE_7BIT;
38440266059SGregory Neil Shapiro 	if (sm_strcasecmp(bodytype, "8BITMIME") == 0)
38540266059SGregory Neil Shapiro 		return BODYTYPE_8BITMIME;
38640266059SGregory Neil Shapiro 	return BODYTYPE_ILLEGAL;
38740266059SGregory Neil Shapiro }
38840266059SGregory Neil Shapiro 
38940266059SGregory Neil Shapiro /*
39040266059SGregory Neil Shapiro **  TRUNCATE_AT_DELIM -- truncate string at a delimiter and append "..."
39140266059SGregory Neil Shapiro **
39240266059SGregory Neil Shapiro **	Parameters:
39340266059SGregory Neil Shapiro **		str -- string to truncate
39440266059SGregory Neil Shapiro **		len -- maximum length (including '\0') (0 for unlimited)
39540266059SGregory Neil Shapiro **		delim -- delimiter character
39640266059SGregory Neil Shapiro **
39740266059SGregory Neil Shapiro **	Returns:
39840266059SGregory Neil Shapiro **		None.
39940266059SGregory Neil Shapiro */
40040266059SGregory Neil Shapiro 
40140266059SGregory Neil Shapiro void
40240266059SGregory Neil Shapiro truncate_at_delim(str, len, delim)
40340266059SGregory Neil Shapiro 	char *str;
40440266059SGregory Neil Shapiro 	size_t len;
40540266059SGregory Neil Shapiro 	int delim;
40640266059SGregory Neil Shapiro {
40740266059SGregory Neil Shapiro 	char *p;
40840266059SGregory Neil Shapiro 
40940266059SGregory Neil Shapiro 	if (str == NULL || len == 0 || strlen(str) < len)
41040266059SGregory Neil Shapiro 		return;
41140266059SGregory Neil Shapiro 
41240266059SGregory Neil Shapiro 	*(str + len - 1) = '\0';
41340266059SGregory Neil Shapiro 	while ((p = strrchr(str, delim)) != NULL)
41440266059SGregory Neil Shapiro 	{
41540266059SGregory Neil Shapiro 		*p = '\0';
41640266059SGregory Neil Shapiro 		if (p - str + 4 < len)
41740266059SGregory Neil Shapiro 		{
418a7ec597cSGregory Neil Shapiro 			*p++ = (char) delim;
41940266059SGregory Neil Shapiro 			*p = '\0';
42040266059SGregory Neil Shapiro 			(void) sm_strlcat(str, "...", len);
42140266059SGregory Neil Shapiro 			return;
42240266059SGregory Neil Shapiro 		}
42340266059SGregory Neil Shapiro 	}
42440266059SGregory Neil Shapiro 
42540266059SGregory Neil Shapiro 	/* Couldn't find a place to append "..." */
42640266059SGregory Neil Shapiro 	if (len > 3)
42740266059SGregory Neil Shapiro 		(void) sm_strlcpy(str, "...", len);
42840266059SGregory Neil Shapiro 	else
42940266059SGregory Neil Shapiro 		str[0] = '\0';
43040266059SGregory Neil Shapiro }
431d0cef73dSGregory Neil Shapiro 
43240266059SGregory Neil Shapiro /*
43340266059SGregory Neil Shapiro **  XALLOC -- Allocate memory, raise an exception on error
434c2aa98e2SPeter Wemm **
435c2aa98e2SPeter Wemm **	Parameters:
436c2aa98e2SPeter Wemm **		sz -- size of area to allocate.
437c2aa98e2SPeter Wemm **
438c2aa98e2SPeter Wemm **	Returns:
439c2aa98e2SPeter Wemm **		pointer to data region.
440c2aa98e2SPeter Wemm **
44140266059SGregory Neil Shapiro **	Exceptions:
44240266059SGregory Neil Shapiro **		SmHeapOutOfMemory (F:sm.heap) -- cannot allocate memory
44340266059SGregory Neil Shapiro **
444c2aa98e2SPeter Wemm **	Side Effects:
445c2aa98e2SPeter Wemm **		Memory is allocated.
446c2aa98e2SPeter Wemm */
447c2aa98e2SPeter Wemm 
448c2aa98e2SPeter Wemm char *
44940266059SGregory Neil Shapiro #if SM_HEAP_CHECK
45040266059SGregory Neil Shapiro xalloc_tagged(sz, file, line)
45140266059SGregory Neil Shapiro 	register int sz;
45240266059SGregory Neil Shapiro 	char *file;
45340266059SGregory Neil Shapiro 	int line;
45440266059SGregory Neil Shapiro #else /* SM_HEAP_CHECK */
455c2aa98e2SPeter Wemm xalloc(sz)
456c2aa98e2SPeter Wemm 	register int sz;
45740266059SGregory Neil Shapiro #endif /* SM_HEAP_CHECK */
458c2aa98e2SPeter Wemm {
459c2aa98e2SPeter Wemm 	register char *p;
460c2aa98e2SPeter Wemm 
4614e4196cbSGregory Neil Shapiro 	SM_REQUIRE(sz >= 0);
4624e4196cbSGregory Neil Shapiro 
463c2aa98e2SPeter Wemm 	/* some systems can't handle size zero mallocs */
464c2aa98e2SPeter Wemm 	if (sz <= 0)
465c2aa98e2SPeter Wemm 		sz = 1;
466c2aa98e2SPeter Wemm 
46740266059SGregory Neil Shapiro 	/* scaffolding for testing error handling code */
46840266059SGregory Neil Shapiro 	sm_xtrap_raise_x(&SmHeapOutOfMemory);
46940266059SGregory Neil Shapiro 
47040266059SGregory Neil Shapiro 	p = sm_malloc_tagged((unsigned) sz, file, line, sm_heap_group());
471c2aa98e2SPeter Wemm 	if (p == NULL)
472c2aa98e2SPeter Wemm 	{
47340266059SGregory Neil Shapiro 		sm_exc_raise_x(&SmHeapOutOfMemory);
474c2aa98e2SPeter Wemm 	}
47506f25ae9SGregory Neil Shapiro 	return p;
476c2aa98e2SPeter Wemm }
477d0cef73dSGregory Neil Shapiro 
47840266059SGregory Neil Shapiro /*
479c2aa98e2SPeter Wemm **  COPYPLIST -- copy list of pointers.
480c2aa98e2SPeter Wemm **
48140266059SGregory Neil Shapiro **	This routine is the equivalent of strdup for lists of
482c2aa98e2SPeter Wemm **	pointers.
483c2aa98e2SPeter Wemm **
484c2aa98e2SPeter Wemm **	Parameters:
485c2aa98e2SPeter Wemm **		list -- list of pointers to copy.
486c2aa98e2SPeter Wemm **			Must be NULL terminated.
48740266059SGregory Neil Shapiro **		copycont -- if true, copy the contents of the vector
488c2aa98e2SPeter Wemm **			(which must be a string) also.
48940266059SGregory Neil Shapiro **		rpool -- resource pool from which to allocate storage,
49040266059SGregory Neil Shapiro **			or NULL
491c2aa98e2SPeter Wemm **
492c2aa98e2SPeter Wemm **	Returns:
493c2aa98e2SPeter Wemm **		a copy of 'list'.
494c2aa98e2SPeter Wemm */
495c2aa98e2SPeter Wemm 
496c2aa98e2SPeter Wemm char **
49740266059SGregory Neil Shapiro copyplist(list, copycont, rpool)
498c2aa98e2SPeter Wemm 	char **list;
499c2aa98e2SPeter Wemm 	bool copycont;
50040266059SGregory Neil Shapiro 	SM_RPOOL_T *rpool;
501c2aa98e2SPeter Wemm {
502c2aa98e2SPeter Wemm 	register char **vp;
503c2aa98e2SPeter Wemm 	register char **newvp;
504c2aa98e2SPeter Wemm 
505c2aa98e2SPeter Wemm 	for (vp = list; *vp != NULL; vp++)
506c2aa98e2SPeter Wemm 		continue;
507c2aa98e2SPeter Wemm 
508c2aa98e2SPeter Wemm 	vp++;
509c2aa98e2SPeter Wemm 
510d0cef73dSGregory Neil Shapiro 	newvp = (char **) sm_rpool_malloc_x(rpool, (vp - list) * sizeof(*vp));
511d0cef73dSGregory Neil Shapiro 	memmove((char *) newvp, (char *) list, (int) (vp - list) * sizeof(*vp));
512c2aa98e2SPeter Wemm 
513c2aa98e2SPeter Wemm 	if (copycont)
514c2aa98e2SPeter Wemm 	{
515c2aa98e2SPeter Wemm 		for (vp = newvp; *vp != NULL; vp++)
51640266059SGregory Neil Shapiro 			*vp = sm_rpool_strdup_x(rpool, *vp);
517c2aa98e2SPeter Wemm 	}
518c2aa98e2SPeter Wemm 
51906f25ae9SGregory Neil Shapiro 	return newvp;
520c2aa98e2SPeter Wemm }
521d0cef73dSGregory Neil Shapiro 
52240266059SGregory Neil Shapiro /*
523c2aa98e2SPeter Wemm **  COPYQUEUE -- copy address queue.
524c2aa98e2SPeter Wemm **
52540266059SGregory Neil Shapiro **	This routine is the equivalent of strdup for address queues;
52606f25ae9SGregory Neil Shapiro **	addresses marked as QS_IS_DEAD() aren't copied
527c2aa98e2SPeter Wemm **
528c2aa98e2SPeter Wemm **	Parameters:
529c2aa98e2SPeter Wemm **		addr -- list of address structures to copy.
53040266059SGregory Neil Shapiro **		rpool -- resource pool from which to allocate storage
531c2aa98e2SPeter Wemm **
532c2aa98e2SPeter Wemm **	Returns:
533c2aa98e2SPeter Wemm **		a copy of 'addr'.
534c2aa98e2SPeter Wemm */
535c2aa98e2SPeter Wemm 
536c2aa98e2SPeter Wemm ADDRESS *
53740266059SGregory Neil Shapiro copyqueue(addr, rpool)
538c2aa98e2SPeter Wemm 	ADDRESS *addr;
53940266059SGregory Neil Shapiro 	SM_RPOOL_T *rpool;
540c2aa98e2SPeter Wemm {
541c2aa98e2SPeter Wemm 	register ADDRESS *newaddr;
542c2aa98e2SPeter Wemm 	ADDRESS *ret;
543c2aa98e2SPeter Wemm 	register ADDRESS **tail = &ret;
544c2aa98e2SPeter Wemm 
545c2aa98e2SPeter Wemm 	while (addr != NULL)
546c2aa98e2SPeter Wemm 	{
54706f25ae9SGregory Neil Shapiro 		if (!QS_IS_DEAD(addr->q_state))
548c2aa98e2SPeter Wemm 		{
54940266059SGregory Neil Shapiro 			newaddr = (ADDRESS *) sm_rpool_malloc_x(rpool,
550d0cef73dSGregory Neil Shapiro 							sizeof(*newaddr));
551c2aa98e2SPeter Wemm 			STRUCTCOPY(*addr, *newaddr);
552c2aa98e2SPeter Wemm 			*tail = newaddr;
553c2aa98e2SPeter Wemm 			tail = &newaddr->q_next;
554c2aa98e2SPeter Wemm 		}
555c2aa98e2SPeter Wemm 		addr = addr->q_next;
556c2aa98e2SPeter Wemm 	}
557c2aa98e2SPeter Wemm 	*tail = NULL;
558c2aa98e2SPeter Wemm 
559c2aa98e2SPeter Wemm 	return ret;
560c2aa98e2SPeter Wemm }
561d0cef73dSGregory Neil Shapiro 
56240266059SGregory Neil Shapiro /*
56306f25ae9SGregory Neil Shapiro **  LOG_SENDMAIL_PID -- record sendmail pid and command line.
56406f25ae9SGregory Neil Shapiro **
56506f25ae9SGregory Neil Shapiro **	Parameters:
56606f25ae9SGregory Neil Shapiro **		e -- the current envelope.
56706f25ae9SGregory Neil Shapiro **
56806f25ae9SGregory Neil Shapiro **	Returns:
56906f25ae9SGregory Neil Shapiro **		none.
57006f25ae9SGregory Neil Shapiro **
57106f25ae9SGregory Neil Shapiro **	Side Effects:
57240266059SGregory Neil Shapiro **		writes pidfile, logs command line.
573e92d3f3fSGregory Neil Shapiro **		keeps file open and locked to prevent overwrite of active file
57406f25ae9SGregory Neil Shapiro */
57506f25ae9SGregory Neil Shapiro 
576e92d3f3fSGregory Neil Shapiro static SM_FILE_T	*Pidf = NULL;
577e92d3f3fSGregory Neil Shapiro 
57806f25ae9SGregory Neil Shapiro void
57906f25ae9SGregory Neil Shapiro log_sendmail_pid(e)
58006f25ae9SGregory Neil Shapiro 	ENVELOPE *e;
58106f25ae9SGregory Neil Shapiro {
58206f25ae9SGregory Neil Shapiro 	long sff;
58394c01205SGregory Neil Shapiro 	char pidpath[MAXPATHLEN];
58440266059SGregory Neil Shapiro 	extern char *CommandLineArgs;
58506f25ae9SGregory Neil Shapiro 
58606f25ae9SGregory Neil Shapiro 	/* write the pid to the log file for posterity */
587e92d3f3fSGregory Neil Shapiro 	sff = SFF_NOLINK|SFF_ROOTOK|SFF_REGONLY|SFF_CREAT|SFF_NBLOCK;
58806f25ae9SGregory Neil Shapiro 	if (TrustedUid != 0 && RealUid == TrustedUid)
58906f25ae9SGregory Neil Shapiro 		sff |= SFF_OPENASROOT;
590d0cef73dSGregory Neil Shapiro 	expand(PidFile, pidpath, sizeof(pidpath), e);
591e92d3f3fSGregory Neil Shapiro 	Pidf = safefopen(pidpath, O_WRONLY|O_TRUNC, FileMode, sff);
592e92d3f3fSGregory Neil Shapiro 	if (Pidf == NULL)
59306f25ae9SGregory Neil Shapiro 	{
594e92d3f3fSGregory Neil Shapiro 		if (errno == EWOULDBLOCK)
595e92d3f3fSGregory Neil Shapiro 			sm_syslog(LOG_ERR, NOQID,
596e92d3f3fSGregory Neil Shapiro 				  "unable to write pid to %s: file in use by another process",
597e92d3f3fSGregory Neil Shapiro 				  pidpath);
598e92d3f3fSGregory Neil Shapiro 		else
599e92d3f3fSGregory Neil Shapiro 			sm_syslog(LOG_ERR, NOQID,
600e92d3f3fSGregory Neil Shapiro 				  "unable to write pid to %s: %s",
60140266059SGregory Neil Shapiro 				  pidpath, sm_errstring(errno));
60206f25ae9SGregory Neil Shapiro 	}
60306f25ae9SGregory Neil Shapiro 	else
60406f25ae9SGregory Neil Shapiro 	{
605e92d3f3fSGregory Neil Shapiro 		PidFilePid = getpid();
606193538b7SGregory Neil Shapiro 
60706f25ae9SGregory Neil Shapiro 		/* write the process id on line 1 */
608e92d3f3fSGregory Neil Shapiro 		(void) sm_io_fprintf(Pidf, SM_TIME_DEFAULT, "%ld\n",
609e92d3f3fSGregory Neil Shapiro 				     (long) PidFilePid);
61006f25ae9SGregory Neil Shapiro 
61106f25ae9SGregory Neil Shapiro 		/* line 2 contains all command line flags */
612e92d3f3fSGregory Neil Shapiro 		(void) sm_io_fprintf(Pidf, SM_TIME_DEFAULT, "%s\n",
61340266059SGregory Neil Shapiro 				     CommandLineArgs);
61406f25ae9SGregory Neil Shapiro 
615e92d3f3fSGregory Neil Shapiro 		/* flush */
616e92d3f3fSGregory Neil Shapiro 		(void) sm_io_flush(Pidf, SM_TIME_DEFAULT);
617e92d3f3fSGregory Neil Shapiro 
618e92d3f3fSGregory Neil Shapiro 		/*
619e92d3f3fSGregory Neil Shapiro 		**  Leave pid file open until process ends
620e92d3f3fSGregory Neil Shapiro 		**  so it's not overwritten by another
621e92d3f3fSGregory Neil Shapiro 		**  process.
622e92d3f3fSGregory Neil Shapiro 		*/
62306f25ae9SGregory Neil Shapiro 	}
62440266059SGregory Neil Shapiro 	if (LogLevel > 9)
62540266059SGregory Neil Shapiro 		sm_syslog(LOG_INFO, NOQID, "started as: %s", CommandLineArgs);
62606f25ae9SGregory Neil Shapiro }
627e92d3f3fSGregory Neil Shapiro 
628e92d3f3fSGregory Neil Shapiro /*
629e92d3f3fSGregory Neil Shapiro **  CLOSE_SENDMAIL_PID -- close sendmail pid file
630e92d3f3fSGregory Neil Shapiro **
631e92d3f3fSGregory Neil Shapiro **	Parameters:
632e92d3f3fSGregory Neil Shapiro **		none.
633e92d3f3fSGregory Neil Shapiro **
634e92d3f3fSGregory Neil Shapiro **	Returns:
635e92d3f3fSGregory Neil Shapiro **		none.
636e92d3f3fSGregory Neil Shapiro */
637e92d3f3fSGregory Neil Shapiro 
638e92d3f3fSGregory Neil Shapiro void
639e92d3f3fSGregory Neil Shapiro close_sendmail_pid()
640e92d3f3fSGregory Neil Shapiro {
641e92d3f3fSGregory Neil Shapiro 	if (Pidf == NULL)
642e92d3f3fSGregory Neil Shapiro 		return;
643e92d3f3fSGregory Neil Shapiro 
644e92d3f3fSGregory Neil Shapiro 	(void) sm_io_close(Pidf, SM_TIME_DEFAULT);
645e92d3f3fSGregory Neil Shapiro 	Pidf = NULL;
646e92d3f3fSGregory Neil Shapiro }
647e92d3f3fSGregory Neil Shapiro 
64840266059SGregory Neil Shapiro /*
64906f25ae9SGregory Neil Shapiro **  SET_DELIVERY_MODE -- set and record the delivery mode
65006f25ae9SGregory Neil Shapiro **
65106f25ae9SGregory Neil Shapiro **	Parameters:
65206f25ae9SGregory Neil Shapiro **		mode -- delivery mode
65306f25ae9SGregory Neil Shapiro **		e -- the current envelope.
65406f25ae9SGregory Neil Shapiro **
65506f25ae9SGregory Neil Shapiro **	Returns:
65606f25ae9SGregory Neil Shapiro **		none.
65706f25ae9SGregory Neil Shapiro **
65806f25ae9SGregory Neil Shapiro **	Side Effects:
65940266059SGregory Neil Shapiro **		sets {deliveryMode} macro
66006f25ae9SGregory Neil Shapiro */
66106f25ae9SGregory Neil Shapiro 
66206f25ae9SGregory Neil Shapiro void
66306f25ae9SGregory Neil Shapiro set_delivery_mode(mode, e)
66406f25ae9SGregory Neil Shapiro 	int mode;
66506f25ae9SGregory Neil Shapiro 	ENVELOPE *e;
66606f25ae9SGregory Neil Shapiro {
66706f25ae9SGregory Neil Shapiro 	char buf[2];
66806f25ae9SGregory Neil Shapiro 
66906f25ae9SGregory Neil Shapiro 	e->e_sendmode = (char) mode;
67006f25ae9SGregory Neil Shapiro 	buf[0] = (char) mode;
67106f25ae9SGregory Neil Shapiro 	buf[1] = '\0';
67240266059SGregory Neil Shapiro 	macdefine(&e->e_macro, A_TEMP, macid("{deliveryMode}"), buf);
67306f25ae9SGregory Neil Shapiro }
674d0cef73dSGregory Neil Shapiro 
67540266059SGregory Neil Shapiro /*
67640266059SGregory Neil Shapiro **  SET_OP_MODE -- set and record the op mode
67740266059SGregory Neil Shapiro **
67840266059SGregory Neil Shapiro **	Parameters:
67940266059SGregory Neil Shapiro **		mode -- op mode
68040266059SGregory Neil Shapiro **		e -- the current envelope.
68140266059SGregory Neil Shapiro **
68240266059SGregory Neil Shapiro **	Returns:
68340266059SGregory Neil Shapiro **		none.
68440266059SGregory Neil Shapiro **
68540266059SGregory Neil Shapiro **	Side Effects:
68640266059SGregory Neil Shapiro **		sets {opMode} macro
68740266059SGregory Neil Shapiro */
68840266059SGregory Neil Shapiro 
68940266059SGregory Neil Shapiro void
69040266059SGregory Neil Shapiro set_op_mode(mode)
69140266059SGregory Neil Shapiro 	int mode;
69240266059SGregory Neil Shapiro {
69340266059SGregory Neil Shapiro 	char buf[2];
69440266059SGregory Neil Shapiro 	extern ENVELOPE BlankEnvelope;
69540266059SGregory Neil Shapiro 
69640266059SGregory Neil Shapiro 	OpMode = (char) mode;
69740266059SGregory Neil Shapiro 	buf[0] = (char) mode;
69840266059SGregory Neil Shapiro 	buf[1] = '\0';
69940266059SGregory Neil Shapiro 	macdefine(&BlankEnvelope.e_macro, A_TEMP, MID_OPMODE, buf);
70040266059SGregory Neil Shapiro }
701d0cef73dSGregory Neil Shapiro 
70240266059SGregory Neil Shapiro /*
703c2aa98e2SPeter Wemm **  PRINTAV -- print argument vector.
704c2aa98e2SPeter Wemm **
705c2aa98e2SPeter Wemm **	Parameters:
706e92d3f3fSGregory Neil Shapiro **		fp -- output file pointer.
707c2aa98e2SPeter Wemm **		av -- argument vector.
708c2aa98e2SPeter Wemm **
709c2aa98e2SPeter Wemm **	Returns:
710c2aa98e2SPeter Wemm **		none.
711c2aa98e2SPeter Wemm **
712c2aa98e2SPeter Wemm **	Side Effects:
713c2aa98e2SPeter Wemm **		prints av.
714c2aa98e2SPeter Wemm */
715c2aa98e2SPeter Wemm 
716c2aa98e2SPeter Wemm void
717e92d3f3fSGregory Neil Shapiro printav(fp, av)
718e92d3f3fSGregory Neil Shapiro 	SM_FILE_T *fp;
719d0cef73dSGregory Neil Shapiro 	char **av;
720c2aa98e2SPeter Wemm {
721c2aa98e2SPeter Wemm 	while (*av != NULL)
722c2aa98e2SPeter Wemm 	{
723c2aa98e2SPeter Wemm 		if (tTd(0, 44))
72440266059SGregory Neil Shapiro 			sm_dprintf("\n\t%08lx=", (unsigned long) *av);
725c2aa98e2SPeter Wemm 		else
726e92d3f3fSGregory Neil Shapiro 			(void) sm_io_putc(fp, SM_TIME_DEFAULT, ' ');
727d0cef73dSGregory Neil Shapiro 		if (tTd(0, 99))
728d0cef73dSGregory Neil Shapiro 			sm_dprintf("%s", str2prt(*av++));
729d0cef73dSGregory Neil Shapiro 		else
730e92d3f3fSGregory Neil Shapiro 			xputs(fp, *av++);
731c2aa98e2SPeter Wemm 	}
732e92d3f3fSGregory Neil Shapiro 	(void) sm_io_putc(fp, SM_TIME_DEFAULT, '\n');
733c2aa98e2SPeter Wemm }
734d0cef73dSGregory Neil Shapiro 
73540266059SGregory Neil Shapiro /*
736c2aa98e2SPeter Wemm **  XPUTS -- put string doing control escapes.
737c2aa98e2SPeter Wemm **
738c2aa98e2SPeter Wemm **	Parameters:
739e92d3f3fSGregory Neil Shapiro **		fp -- output file pointer.
740c2aa98e2SPeter Wemm **		s -- string to put.
741c2aa98e2SPeter Wemm **
742c2aa98e2SPeter Wemm **	Returns:
743c2aa98e2SPeter Wemm **		none.
744c2aa98e2SPeter Wemm **
745c2aa98e2SPeter Wemm **	Side Effects:
746c2aa98e2SPeter Wemm **		output to stdout
747c2aa98e2SPeter Wemm */
748c2aa98e2SPeter Wemm 
749c2aa98e2SPeter Wemm void
750e92d3f3fSGregory Neil Shapiro xputs(fp, s)
751e92d3f3fSGregory Neil Shapiro 	SM_FILE_T *fp;
752d0cef73dSGregory Neil Shapiro 	const char *s;
753c2aa98e2SPeter Wemm {
754d0cef73dSGregory Neil Shapiro 	int c;
755d0cef73dSGregory Neil Shapiro 	struct metamac *mp;
75640266059SGregory Neil Shapiro 	bool shiftout = false;
757c2aa98e2SPeter Wemm 	extern struct metamac MetaMacros[];
75840266059SGregory Neil Shapiro 	static SM_DEBUG_T DebugANSI = SM_DEBUG_INITIALIZER("ANSI",
75940266059SGregory Neil Shapiro 		"@(#)$Debug: ANSI - enable reverse video in debug output $");
76040266059SGregory Neil Shapiro 
76140266059SGregory Neil Shapiro 	/*
76240266059SGregory Neil Shapiro 	**  TermEscape is set here, rather than in main(),
76340266059SGregory Neil Shapiro 	**  because ANSI mode can be turned on or off at any time
76440266059SGregory Neil Shapiro 	**  if we are in -bt rule testing mode.
76540266059SGregory Neil Shapiro 	*/
76640266059SGregory Neil Shapiro 
76740266059SGregory Neil Shapiro 	if (sm_debug_unknown(&DebugANSI))
76840266059SGregory Neil Shapiro 	{
76940266059SGregory Neil Shapiro 		if (sm_debug_active(&DebugANSI, 1))
77040266059SGregory Neil Shapiro 		{
77140266059SGregory Neil Shapiro 			TermEscape.te_rv_on = "\033[7m";
772d0cef73dSGregory Neil Shapiro 			TermEscape.te_normal = "\033[0m";
77340266059SGregory Neil Shapiro 		}
77440266059SGregory Neil Shapiro 		else
77540266059SGregory Neil Shapiro 		{
77640266059SGregory Neil Shapiro 			TermEscape.te_rv_on = "";
777d0cef73dSGregory Neil Shapiro 			TermEscape.te_normal = "";
77840266059SGregory Neil Shapiro 		}
77940266059SGregory Neil Shapiro 	}
780c2aa98e2SPeter Wemm 
781c2aa98e2SPeter Wemm 	if (s == NULL)
782c2aa98e2SPeter Wemm 	{
783e92d3f3fSGregory Neil Shapiro 		(void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "%s<null>%s",
784d0cef73dSGregory Neil Shapiro 				     TermEscape.te_rv_on, TermEscape.te_normal);
785c2aa98e2SPeter Wemm 		return;
786c2aa98e2SPeter Wemm 	}
787c2aa98e2SPeter Wemm 	while ((c = (*s++ & 0377)) != '\0')
788c2aa98e2SPeter Wemm 	{
789c2aa98e2SPeter Wemm 		if (shiftout)
790c2aa98e2SPeter Wemm 		{
791e92d3f3fSGregory Neil Shapiro 			(void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "%s",
792d0cef73dSGregory Neil Shapiro 					     TermEscape.te_normal);
79340266059SGregory Neil Shapiro 			shiftout = false;
794c2aa98e2SPeter Wemm 		}
795d0cef73dSGregory Neil Shapiro 		if (!isascii(c) && !tTd(84, 1))
796c2aa98e2SPeter Wemm 		{
797c2aa98e2SPeter Wemm 			if (c == MATCHREPL)
798c2aa98e2SPeter Wemm 			{
799e92d3f3fSGregory Neil Shapiro 				(void) sm_io_fprintf(fp, SM_TIME_DEFAULT,
80040266059SGregory Neil Shapiro 						     "%s$",
80140266059SGregory Neil Shapiro 						     TermEscape.te_rv_on);
80240266059SGregory Neil Shapiro 				shiftout = true;
803c2aa98e2SPeter Wemm 				if (*s == '\0')
804c2aa98e2SPeter Wemm 					continue;
805c2aa98e2SPeter Wemm 				c = *s++ & 0377;
806c2aa98e2SPeter Wemm 				goto printchar;
807c2aa98e2SPeter Wemm 			}
808c2aa98e2SPeter Wemm 			if (c == MACROEXPAND || c == MACRODEXPAND)
809c2aa98e2SPeter Wemm 			{
810e92d3f3fSGregory Neil Shapiro 				(void) sm_io_fprintf(fp, SM_TIME_DEFAULT,
81140266059SGregory Neil Shapiro 						     "%s$",
81240266059SGregory Neil Shapiro 						     TermEscape.te_rv_on);
813c2aa98e2SPeter Wemm 				if (c == MACRODEXPAND)
814e92d3f3fSGregory Neil Shapiro 					(void) sm_io_putc(fp,
81540266059SGregory Neil Shapiro 							  SM_TIME_DEFAULT, '&');
81640266059SGregory Neil Shapiro 				shiftout = true;
817c2aa98e2SPeter Wemm 				if (*s == '\0')
818c2aa98e2SPeter Wemm 					continue;
819c2aa98e2SPeter Wemm 				if (strchr("=~&?", *s) != NULL)
820e92d3f3fSGregory Neil Shapiro 					(void) sm_io_putc(fp,
82140266059SGregory Neil Shapiro 							  SM_TIME_DEFAULT,
82240266059SGregory Neil Shapiro 							  *s++);
823c2aa98e2SPeter Wemm 				if (bitset(0200, *s))
824e92d3f3fSGregory Neil Shapiro 					(void) sm_io_fprintf(fp,
82540266059SGregory Neil Shapiro 							     SM_TIME_DEFAULT,
82640266059SGregory Neil Shapiro 							     "{%s}",
82740266059SGregory Neil Shapiro 							     macname(bitidx(*s++)));
828c2aa98e2SPeter Wemm 				else
829e92d3f3fSGregory Neil Shapiro 					(void) sm_io_fprintf(fp,
83040266059SGregory Neil Shapiro 							     SM_TIME_DEFAULT,
83140266059SGregory Neil Shapiro 							     "%c",
83240266059SGregory Neil Shapiro 							     *s++);
833c2aa98e2SPeter Wemm 				continue;
834c2aa98e2SPeter Wemm 			}
835c2aa98e2SPeter Wemm 			for (mp = MetaMacros; mp->metaname != '\0'; mp++)
836c2aa98e2SPeter Wemm 			{
83740266059SGregory Neil Shapiro 				if (bitidx(mp->metaval) == c)
838c2aa98e2SPeter Wemm 				{
839e92d3f3fSGregory Neil Shapiro 					(void) sm_io_fprintf(fp,
84040266059SGregory Neil Shapiro 							     SM_TIME_DEFAULT,
84140266059SGregory Neil Shapiro 							     "%s$%c",
842c2aa98e2SPeter Wemm 							     TermEscape.te_rv_on,
843c2aa98e2SPeter Wemm 							     mp->metaname);
84440266059SGregory Neil Shapiro 					shiftout = true;
845c2aa98e2SPeter Wemm 					break;
846c2aa98e2SPeter Wemm 				}
847c2aa98e2SPeter Wemm 			}
848c2aa98e2SPeter Wemm 			if (c == MATCHCLASS || c == MATCHNCLASS)
849c2aa98e2SPeter Wemm 			{
850c2aa98e2SPeter Wemm 				if (bitset(0200, *s))
851e92d3f3fSGregory Neil Shapiro 					(void) sm_io_fprintf(fp,
85240266059SGregory Neil Shapiro 							     SM_TIME_DEFAULT,
85340266059SGregory Neil Shapiro 							     "{%s}",
85440266059SGregory Neil Shapiro 							     macname(bitidx(*s++)));
855c2aa98e2SPeter Wemm 				else if (*s != '\0')
856e92d3f3fSGregory Neil Shapiro 					(void) sm_io_fprintf(fp,
85740266059SGregory Neil Shapiro 							     SM_TIME_DEFAULT,
85840266059SGregory Neil Shapiro 							     "%c",
85940266059SGregory Neil Shapiro 							     *s++);
860c2aa98e2SPeter Wemm 			}
861c2aa98e2SPeter Wemm 			if (mp->metaname != '\0')
862c2aa98e2SPeter Wemm 				continue;
863c2aa98e2SPeter Wemm 
864c2aa98e2SPeter Wemm 			/* unrecognized meta character */
865e92d3f3fSGregory Neil Shapiro 			(void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "%sM-",
86640266059SGregory Neil Shapiro 					     TermEscape.te_rv_on);
86740266059SGregory Neil Shapiro 			shiftout = true;
868c2aa98e2SPeter Wemm 			c &= 0177;
869c2aa98e2SPeter Wemm 		}
870c2aa98e2SPeter Wemm   printchar:
8719bd497b8SGregory Neil Shapiro 		if (isascii(c) && isprint(c))
872c2aa98e2SPeter Wemm 		{
873e92d3f3fSGregory Neil Shapiro 			(void) sm_io_putc(fp, SM_TIME_DEFAULT, c);
874c2aa98e2SPeter Wemm 			continue;
875c2aa98e2SPeter Wemm 		}
876c2aa98e2SPeter Wemm 
877c2aa98e2SPeter Wemm 		/* wasn't a meta-macro -- find another way to print it */
878c2aa98e2SPeter Wemm 		switch (c)
879c2aa98e2SPeter Wemm 		{
880c2aa98e2SPeter Wemm 		  case '\n':
881c2aa98e2SPeter Wemm 			c = 'n';
882c2aa98e2SPeter Wemm 			break;
883c2aa98e2SPeter Wemm 
884c2aa98e2SPeter Wemm 		  case '\r':
885c2aa98e2SPeter Wemm 			c = 'r';
886c2aa98e2SPeter Wemm 			break;
887c2aa98e2SPeter Wemm 
888c2aa98e2SPeter Wemm 		  case '\t':
889c2aa98e2SPeter Wemm 			c = 't';
890c2aa98e2SPeter Wemm 			break;
891c2aa98e2SPeter Wemm 		}
892c2aa98e2SPeter Wemm 		if (!shiftout)
893c2aa98e2SPeter Wemm 		{
894e92d3f3fSGregory Neil Shapiro 			(void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "%s",
89540266059SGregory Neil Shapiro 					     TermEscape.te_rv_on);
89640266059SGregory Neil Shapiro 			shiftout = true;
897c2aa98e2SPeter Wemm 		}
8989bd497b8SGregory Neil Shapiro 		if (isascii(c) && isprint(c))
899c2aa98e2SPeter Wemm 		{
900e92d3f3fSGregory Neil Shapiro 			(void) sm_io_putc(fp, SM_TIME_DEFAULT, '\\');
901e92d3f3fSGregory Neil Shapiro 			(void) sm_io_putc(fp, SM_TIME_DEFAULT, c);
902c2aa98e2SPeter Wemm 		}
903d0cef73dSGregory Neil Shapiro 		else if (tTd(84, 2))
904d0cef73dSGregory Neil Shapiro 			(void) sm_io_fprintf(fp, SM_TIME_DEFAULT, " %o ", c);
905d0cef73dSGregory Neil Shapiro 		else if (tTd(84, 1))
906d0cef73dSGregory Neil Shapiro 			(void) sm_io_fprintf(fp, SM_TIME_DEFAULT, " %#x ", c);
907d0cef73dSGregory Neil Shapiro 		else if (!isascii(c) && !tTd(84, 1))
908c2aa98e2SPeter Wemm 		{
909e92d3f3fSGregory Neil Shapiro 			(void) sm_io_putc(fp, SM_TIME_DEFAULT, '^');
910e92d3f3fSGregory Neil Shapiro 			(void) sm_io_putc(fp, SM_TIME_DEFAULT, c ^ 0100);
911c2aa98e2SPeter Wemm 		}
912c2aa98e2SPeter Wemm 	}
913c2aa98e2SPeter Wemm 	if (shiftout)
914e92d3f3fSGregory Neil Shapiro 		(void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "%s",
915d0cef73dSGregory Neil Shapiro 				     TermEscape.te_normal);
916e92d3f3fSGregory Neil Shapiro 	(void) sm_io_flush(fp, SM_TIME_DEFAULT);
917c2aa98e2SPeter Wemm }
918d0cef73dSGregory Neil Shapiro 
91940266059SGregory Neil Shapiro /*
920c2aa98e2SPeter Wemm **  MAKELOWER -- Translate a line into lower case
921c2aa98e2SPeter Wemm **
922c2aa98e2SPeter Wemm **	Parameters:
923c2aa98e2SPeter Wemm **		p -- the string to translate.  If NULL, return is
924c2aa98e2SPeter Wemm **			immediate.
925c2aa98e2SPeter Wemm **
926c2aa98e2SPeter Wemm **	Returns:
927c2aa98e2SPeter Wemm **		none.
928c2aa98e2SPeter Wemm **
929c2aa98e2SPeter Wemm **	Side Effects:
930c2aa98e2SPeter Wemm **		String pointed to by p is translated to lower case.
931c2aa98e2SPeter Wemm */
932c2aa98e2SPeter Wemm 
933c2aa98e2SPeter Wemm void
934c2aa98e2SPeter Wemm makelower(p)
935c2aa98e2SPeter Wemm 	register char *p;
936c2aa98e2SPeter Wemm {
937c2aa98e2SPeter Wemm 	register char c;
938c2aa98e2SPeter Wemm 
939c2aa98e2SPeter Wemm 	if (p == NULL)
940c2aa98e2SPeter Wemm 		return;
941c2aa98e2SPeter Wemm 	for (; (c = *p) != '\0'; p++)
942c2aa98e2SPeter Wemm 		if (isascii(c) && isupper(c))
943c2aa98e2SPeter Wemm 			*p = tolower(c);
944c2aa98e2SPeter Wemm }
945d0cef73dSGregory Neil Shapiro 
94640266059SGregory Neil Shapiro /*
947c2aa98e2SPeter Wemm **  FIXCRLF -- fix <CR><LF> in line.
948c2aa98e2SPeter Wemm **
949c2aa98e2SPeter Wemm **	Looks for the <CR><LF> combination and turns it into the
950c2aa98e2SPeter Wemm **	UNIX canonical <NL> character.  It only takes one line,
951c2aa98e2SPeter Wemm **	i.e., it is assumed that the first <NL> found is the end
952c2aa98e2SPeter Wemm **	of the line.
953c2aa98e2SPeter Wemm **
954c2aa98e2SPeter Wemm **	Parameters:
955c2aa98e2SPeter Wemm **		line -- the line to fix.
956c2aa98e2SPeter Wemm **		stripnl -- if true, strip the newline also.
957c2aa98e2SPeter Wemm **
958c2aa98e2SPeter Wemm **	Returns:
959c2aa98e2SPeter Wemm **		none.
960c2aa98e2SPeter Wemm **
961c2aa98e2SPeter Wemm **	Side Effects:
962c2aa98e2SPeter Wemm **		line is changed in place.
963c2aa98e2SPeter Wemm */
964c2aa98e2SPeter Wemm 
965c2aa98e2SPeter Wemm void
966c2aa98e2SPeter Wemm fixcrlf(line, stripnl)
967c2aa98e2SPeter Wemm 	char *line;
968c2aa98e2SPeter Wemm 	bool stripnl;
969c2aa98e2SPeter Wemm {
970c2aa98e2SPeter Wemm 	register char *p;
971c2aa98e2SPeter Wemm 
972c2aa98e2SPeter Wemm 	p = strchr(line, '\n');
973c2aa98e2SPeter Wemm 	if (p == NULL)
974c2aa98e2SPeter Wemm 		return;
975c2aa98e2SPeter Wemm 	if (p > line && p[-1] == '\r')
976c2aa98e2SPeter Wemm 		p--;
977c2aa98e2SPeter Wemm 	if (!stripnl)
978c2aa98e2SPeter Wemm 		*p++ = '\n';
979c2aa98e2SPeter Wemm 	*p = '\0';
980c2aa98e2SPeter Wemm }
981d0cef73dSGregory Neil Shapiro 
98240266059SGregory Neil Shapiro /*
983c2aa98e2SPeter Wemm **  PUTLINE -- put a line like fputs obeying SMTP conventions
984c2aa98e2SPeter Wemm **
985c2aa98e2SPeter Wemm **	This routine always guarantees outputing a newline (or CRLF,
986c2aa98e2SPeter Wemm **	as appropriate) at the end of the string.
987c2aa98e2SPeter Wemm **
988c2aa98e2SPeter Wemm **	Parameters:
989c2aa98e2SPeter Wemm **		l -- line to put.
990c2aa98e2SPeter Wemm **		mci -- the mailer connection information.
991c2aa98e2SPeter Wemm **
992c2aa98e2SPeter Wemm **	Returns:
9934e4196cbSGregory Neil Shapiro **		true iff line was written successfully
994c2aa98e2SPeter Wemm **
995c2aa98e2SPeter Wemm **	Side Effects:
99640266059SGregory Neil Shapiro **		output of l to mci->mci_out.
997c2aa98e2SPeter Wemm */
998c2aa98e2SPeter Wemm 
9994e4196cbSGregory Neil Shapiro bool
1000c2aa98e2SPeter Wemm putline(l, mci)
1001c2aa98e2SPeter Wemm 	register char *l;
1002c2aa98e2SPeter Wemm 	register MCI *mci;
1003c2aa98e2SPeter Wemm {
10044e4196cbSGregory Neil Shapiro 	return putxline(l, strlen(l), mci, PXLF_MAPFROM);
1005c2aa98e2SPeter Wemm }
1006d0cef73dSGregory Neil Shapiro 
100740266059SGregory Neil Shapiro /*
1008c2aa98e2SPeter Wemm **  PUTXLINE -- putline with flags bits.
1009c2aa98e2SPeter Wemm **
1010c2aa98e2SPeter Wemm **	This routine always guarantees outputing a newline (or CRLF,
1011c2aa98e2SPeter Wemm **	as appropriate) at the end of the string.
1012c2aa98e2SPeter Wemm **
1013c2aa98e2SPeter Wemm **	Parameters:
1014c2aa98e2SPeter Wemm **		l -- line to put.
1015c2aa98e2SPeter Wemm **		len -- the length of the line.
1016c2aa98e2SPeter Wemm **		mci -- the mailer connection information.
1017c2aa98e2SPeter Wemm **		pxflags -- flag bits:
1018c2aa98e2SPeter Wemm **		    PXLF_MAPFROM -- map From_ to >From_.
1019c2aa98e2SPeter Wemm **		    PXLF_STRIP8BIT -- strip 8th bit.
1020c2aa98e2SPeter Wemm **		    PXLF_HEADER -- map bare newline in header to newline space.
1021605302a5SGregory Neil Shapiro **		    PXLF_NOADDEOL -- don't add an EOL if one wasn't present.
1022d0cef73dSGregory Neil Shapiro **		    PXLF_STRIPMQUOTE -- strip METAQUOTE bytes.
1023c2aa98e2SPeter Wemm **
1024c2aa98e2SPeter Wemm **	Returns:
10254e4196cbSGregory Neil Shapiro **		true iff line was written successfully
1026c2aa98e2SPeter Wemm **
1027c2aa98e2SPeter Wemm **	Side Effects:
102840266059SGregory Neil Shapiro **		output of l to mci->mci_out.
1029c2aa98e2SPeter Wemm */
1030c2aa98e2SPeter Wemm 
1031d0cef73dSGregory Neil Shapiro 
1032d0cef73dSGregory Neil Shapiro #define PUTX(limit)							\
1033d0cef73dSGregory Neil Shapiro 	do								\
1034d0cef73dSGregory Neil Shapiro 	{								\
1035d0cef73dSGregory Neil Shapiro 		quotenext = false;					\
1036d0cef73dSGregory Neil Shapiro 		while (l < limit)					\
1037d0cef73dSGregory Neil Shapiro 		{							\
1038d0cef73dSGregory Neil Shapiro 			unsigned char c = (unsigned char) *l++;		\
1039d0cef73dSGregory Neil Shapiro 									\
1040d0cef73dSGregory Neil Shapiro 			if (bitset(PXLF_STRIPMQUOTE, pxflags) &&	\
1041d0cef73dSGregory Neil Shapiro 			    !quotenext && c == METAQUOTE)		\
1042d0cef73dSGregory Neil Shapiro 			{						\
1043d0cef73dSGregory Neil Shapiro 				quotenext = true;			\
1044d0cef73dSGregory Neil Shapiro 				continue;				\
1045d0cef73dSGregory Neil Shapiro 			}						\
1046d0cef73dSGregory Neil Shapiro 			quotenext = false;				\
1047d0cef73dSGregory Neil Shapiro 			if (strip8bit)					\
1048d0cef73dSGregory Neil Shapiro 				c &= 0177;				\
1049d0cef73dSGregory Neil Shapiro 			if (sm_io_putc(mci->mci_out, SM_TIME_DEFAULT,	\
1050d0cef73dSGregory Neil Shapiro 				       c) == SM_IO_EOF)			\
1051d0cef73dSGregory Neil Shapiro 			{						\
1052d0cef73dSGregory Neil Shapiro 				dead = true;				\
1053d0cef73dSGregory Neil Shapiro 				break;					\
1054d0cef73dSGregory Neil Shapiro 			}						\
1055d0cef73dSGregory Neil Shapiro 			if (TrafficLogFile != NULL)			\
1056d0cef73dSGregory Neil Shapiro 				(void) sm_io_putc(TrafficLogFile,	\
1057d0cef73dSGregory Neil Shapiro 						  SM_TIME_DEFAULT,	\
1058d0cef73dSGregory Neil Shapiro 						  c);			\
1059d0cef73dSGregory Neil Shapiro 		}							\
1060d0cef73dSGregory Neil Shapiro 	} while (0)
1061d0cef73dSGregory Neil Shapiro 
10624e4196cbSGregory Neil Shapiro bool
1063c2aa98e2SPeter Wemm putxline(l, len, mci, pxflags)
1064c2aa98e2SPeter Wemm 	register char *l;
1065c2aa98e2SPeter Wemm 	size_t len;
1066c2aa98e2SPeter Wemm 	register MCI *mci;
1067c2aa98e2SPeter Wemm 	int pxflags;
1068c2aa98e2SPeter Wemm {
1069c2aa98e2SPeter Wemm 	register char *p, *end;
1070d0cef73dSGregory Neil Shapiro 	int slop;
1071d0cef73dSGregory Neil Shapiro 	bool dead, quotenext, strip8bit;
1072c2aa98e2SPeter Wemm 
1073c2aa98e2SPeter Wemm 	/* strip out 0200 bits -- these can look like TELNET protocol */
1074d0cef73dSGregory Neil Shapiro 	strip8bit = bitset(MCIF_7BIT, mci->mci_flags) ||
1075d0cef73dSGregory Neil Shapiro 		    bitset(PXLF_STRIP8BIT, pxflags);
1076d0cef73dSGregory Neil Shapiro 	dead = false;
1077d0cef73dSGregory Neil Shapiro 	slop = 0;
1078c2aa98e2SPeter Wemm 
1079c2aa98e2SPeter Wemm 	end = l + len;
1080c2aa98e2SPeter Wemm 	do
1081c2aa98e2SPeter Wemm 	{
1082605302a5SGregory Neil Shapiro 		bool noeol = false;
1083605302a5SGregory Neil Shapiro 
1084c2aa98e2SPeter Wemm 		/* find the end of the line */
1085c2aa98e2SPeter Wemm 		p = memchr(l, '\n', end - l);
1086c2aa98e2SPeter Wemm 		if (p == NULL)
1087605302a5SGregory Neil Shapiro 		{
1088c2aa98e2SPeter Wemm 			p = end;
1089605302a5SGregory Neil Shapiro 			noeol = true;
1090605302a5SGregory Neil Shapiro 		}
1091c2aa98e2SPeter Wemm 
1092c2aa98e2SPeter Wemm 		if (TrafficLogFile != NULL)
109340266059SGregory Neil Shapiro 			(void) sm_io_fprintf(TrafficLogFile, SM_TIME_DEFAULT,
109440266059SGregory Neil Shapiro 					     "%05d >>> ", (int) CurrentPid);
1095c2aa98e2SPeter Wemm 
1096c2aa98e2SPeter Wemm 		/* check for line overflow */
1097c2aa98e2SPeter Wemm 		while (mci->mci_mailer->m_linelimit > 0 &&
1098c2aa98e2SPeter Wemm 		       (p - l + slop) > mci->mci_mailer->m_linelimit)
1099c2aa98e2SPeter Wemm 		{
1100c2aa98e2SPeter Wemm 			register char *q = &l[mci->mci_mailer->m_linelimit - slop - 1];
1101c2aa98e2SPeter Wemm 
1102c2aa98e2SPeter Wemm 			if (l[0] == '.' && slop == 0 &&
1103c2aa98e2SPeter Wemm 			    bitnset(M_XDOT, mci->mci_mailer->m_flags))
1104c2aa98e2SPeter Wemm 			{
110540266059SGregory Neil Shapiro 				if (sm_io_putc(mci->mci_out, SM_TIME_DEFAULT,
110640266059SGregory Neil Shapiro 					       '.') == SM_IO_EOF)
110740266059SGregory Neil Shapiro 					dead = true;
1108c2aa98e2SPeter Wemm 				if (TrafficLogFile != NULL)
110940266059SGregory Neil Shapiro 					(void) sm_io_putc(TrafficLogFile,
111040266059SGregory Neil Shapiro 							  SM_TIME_DEFAULT, '.');
1111c2aa98e2SPeter Wemm 			}
1112c2aa98e2SPeter Wemm 			else if (l[0] == 'F' && slop == 0 &&
1113c2aa98e2SPeter Wemm 				 bitset(PXLF_MAPFROM, pxflags) &&
1114c2aa98e2SPeter Wemm 				 strncmp(l, "From ", 5) == 0 &&
1115c2aa98e2SPeter Wemm 				 bitnset(M_ESCFROM, mci->mci_mailer->m_flags))
1116c2aa98e2SPeter Wemm 			{
111740266059SGregory Neil Shapiro 				if (sm_io_putc(mci->mci_out, SM_TIME_DEFAULT,
111840266059SGregory Neil Shapiro 					       '>') == SM_IO_EOF)
111940266059SGregory Neil Shapiro 					dead = true;
1120c2aa98e2SPeter Wemm 				if (TrafficLogFile != NULL)
112140266059SGregory Neil Shapiro 					(void) sm_io_putc(TrafficLogFile,
112240266059SGregory Neil Shapiro 							  SM_TIME_DEFAULT,
112340266059SGregory Neil Shapiro 							  '>');
1124c2aa98e2SPeter Wemm 			}
112506f25ae9SGregory Neil Shapiro 			if (dead)
112606f25ae9SGregory Neil Shapiro 				break;
112706f25ae9SGregory Neil Shapiro 
1128d0cef73dSGregory Neil Shapiro 			PUTX(q);
112906f25ae9SGregory Neil Shapiro 			if (dead)
113006f25ae9SGregory Neil Shapiro 				break;
113106f25ae9SGregory Neil Shapiro 
1132d0cef73dSGregory Neil Shapiro 			if (sm_io_putc(mci->mci_out, SM_TIME_DEFAULT,
1133d0cef73dSGregory Neil Shapiro 					'!') == SM_IO_EOF ||
113440266059SGregory Neil Shapiro 			    sm_io_fputs(mci->mci_out, SM_TIME_DEFAULT,
1135d0cef73dSGregory Neil Shapiro 					mci->mci_mailer->m_eol) == SM_IO_EOF ||
1136d0cef73dSGregory Neil Shapiro 			    sm_io_putc(mci->mci_out, SM_TIME_DEFAULT,
1137d0cef73dSGregory Neil Shapiro 					' ') == SM_IO_EOF)
113806f25ae9SGregory Neil Shapiro 			{
113940266059SGregory Neil Shapiro 				dead = true;
114006f25ae9SGregory Neil Shapiro 				break;
114106f25ae9SGregory Neil Shapiro 			}
1142c2aa98e2SPeter Wemm 			if (TrafficLogFile != NULL)
1143c2aa98e2SPeter Wemm 			{
114440266059SGregory Neil Shapiro 				(void) sm_io_fprintf(TrafficLogFile,
114540266059SGregory Neil Shapiro 						     SM_TIME_DEFAULT,
114640266059SGregory Neil Shapiro 						     "!\n%05d >>>  ",
114740266059SGregory Neil Shapiro 						     (int) CurrentPid);
1148c2aa98e2SPeter Wemm 			}
1149c2aa98e2SPeter Wemm 			slop = 1;
1150c2aa98e2SPeter Wemm 		}
1151c2aa98e2SPeter Wemm 
115206f25ae9SGregory Neil Shapiro 		if (dead)
115306f25ae9SGregory Neil Shapiro 			break;
115406f25ae9SGregory Neil Shapiro 
1155c2aa98e2SPeter Wemm 		/* output last part */
1156c2aa98e2SPeter Wemm 		if (l[0] == '.' && slop == 0 &&
1157ffb83623SGregory Neil Shapiro 		    bitnset(M_XDOT, mci->mci_mailer->m_flags) &&
1158ffb83623SGregory Neil Shapiro 		    !bitset(MCIF_INLONGLINE, mci->mci_flags))
1159c2aa98e2SPeter Wemm 		{
116040266059SGregory Neil Shapiro 			if (sm_io_putc(mci->mci_out, SM_TIME_DEFAULT, '.') ==
116140266059SGregory Neil Shapiro 			    SM_IO_EOF)
1162193538b7SGregory Neil Shapiro 			{
11634e4196cbSGregory Neil Shapiro 				dead = true;
11644e4196cbSGregory Neil Shapiro 				break;
1165193538b7SGregory Neil Shapiro 			}
1166c2aa98e2SPeter Wemm 			if (TrafficLogFile != NULL)
116740266059SGregory Neil Shapiro 				(void) sm_io_putc(TrafficLogFile,
116840266059SGregory Neil Shapiro 						  SM_TIME_DEFAULT, '.');
1169c2aa98e2SPeter Wemm 		}
1170c2aa98e2SPeter Wemm 		else if (l[0] == 'F' && slop == 0 &&
1171c2aa98e2SPeter Wemm 			 bitset(PXLF_MAPFROM, pxflags) &&
1172c2aa98e2SPeter Wemm 			 strncmp(l, "From ", 5) == 0 &&
1173ffb83623SGregory Neil Shapiro 			 bitnset(M_ESCFROM, mci->mci_mailer->m_flags) &&
1174ffb83623SGregory Neil Shapiro 			 !bitset(MCIF_INLONGLINE, mci->mci_flags))
1175c2aa98e2SPeter Wemm 		{
117640266059SGregory Neil Shapiro 			if (sm_io_putc(mci->mci_out, SM_TIME_DEFAULT, '>') ==
117740266059SGregory Neil Shapiro 			    SM_IO_EOF)
1178193538b7SGregory Neil Shapiro 			{
11794e4196cbSGregory Neil Shapiro 				dead = true;
11804e4196cbSGregory Neil Shapiro 				break;
1181193538b7SGregory Neil Shapiro 			}
1182c2aa98e2SPeter Wemm 			if (TrafficLogFile != NULL)
118340266059SGregory Neil Shapiro 				(void) sm_io_putc(TrafficLogFile,
118440266059SGregory Neil Shapiro 						  SM_TIME_DEFAULT, '>');
1185c2aa98e2SPeter Wemm 		}
1186d0cef73dSGregory Neil Shapiro 		PUTX(p);
118706f25ae9SGregory Neil Shapiro 		if (dead)
118806f25ae9SGregory Neil Shapiro 			break;
118906f25ae9SGregory Neil Shapiro 
1190c2aa98e2SPeter Wemm 		if (TrafficLogFile != NULL)
119140266059SGregory Neil Shapiro 			(void) sm_io_putc(TrafficLogFile, SM_TIME_DEFAULT,
119240266059SGregory Neil Shapiro 					  '\n');
1193ffb83623SGregory Neil Shapiro 		if ((!bitset(PXLF_NOADDEOL, pxflags) || !noeol))
1194ffb83623SGregory Neil Shapiro 		{
1195ffb83623SGregory Neil Shapiro 			mci->mci_flags &= ~MCIF_INLONGLINE;
1196ffb83623SGregory Neil Shapiro 			if (sm_io_fputs(mci->mci_out, SM_TIME_DEFAULT,
119740266059SGregory Neil Shapiro 					mci->mci_mailer->m_eol) == SM_IO_EOF)
1198193538b7SGregory Neil Shapiro 			{
11994e4196cbSGregory Neil Shapiro 				dead = true;
12004e4196cbSGregory Neil Shapiro 				break;
1201193538b7SGregory Neil Shapiro 			}
1202ffb83623SGregory Neil Shapiro 		}
1203ffb83623SGregory Neil Shapiro 		else
1204ffb83623SGregory Neil Shapiro 			mci->mci_flags |= MCIF_INLONGLINE;
1205ffb83623SGregory Neil Shapiro 
1206c2aa98e2SPeter Wemm 		if (l < end && *l == '\n')
1207c2aa98e2SPeter Wemm 		{
1208c2aa98e2SPeter Wemm 			if (*++l != ' ' && *l != '\t' && *l != '\0' &&
1209c2aa98e2SPeter Wemm 			    bitset(PXLF_HEADER, pxflags))
1210c2aa98e2SPeter Wemm 			{
121140266059SGregory Neil Shapiro 				if (sm_io_putc(mci->mci_out, SM_TIME_DEFAULT,
121240266059SGregory Neil Shapiro 					       ' ') == SM_IO_EOF)
1213193538b7SGregory Neil Shapiro 				{
12144e4196cbSGregory Neil Shapiro 					dead = true;
12154e4196cbSGregory Neil Shapiro 					break;
1216193538b7SGregory Neil Shapiro 				}
121740266059SGregory Neil Shapiro 
1218c2aa98e2SPeter Wemm 				if (TrafficLogFile != NULL)
121940266059SGregory Neil Shapiro 					(void) sm_io_putc(TrafficLogFile,
122040266059SGregory Neil Shapiro 							  SM_TIME_DEFAULT, ' ');
1221c2aa98e2SPeter Wemm 			}
1222c2aa98e2SPeter Wemm 		}
122340266059SGregory Neil Shapiro 
1224c2aa98e2SPeter Wemm 	} while (l < end);
12254e4196cbSGregory Neil Shapiro 	return !dead;
1226c2aa98e2SPeter Wemm }
12274e4196cbSGregory Neil Shapiro 
122840266059SGregory Neil Shapiro /*
1229c2aa98e2SPeter Wemm **  XUNLINK -- unlink a file, doing logging as appropriate.
1230c2aa98e2SPeter Wemm **
1231c2aa98e2SPeter Wemm **	Parameters:
1232c2aa98e2SPeter Wemm **		f -- name of file to unlink.
1233c2aa98e2SPeter Wemm **
1234c2aa98e2SPeter Wemm **	Returns:
123540266059SGregory Neil Shapiro **		return value of unlink()
1236c2aa98e2SPeter Wemm **
1237c2aa98e2SPeter Wemm **	Side Effects:
1238c2aa98e2SPeter Wemm **		f is unlinked.
1239c2aa98e2SPeter Wemm */
1240c2aa98e2SPeter Wemm 
124140266059SGregory Neil Shapiro int
1242c2aa98e2SPeter Wemm xunlink(f)
1243c2aa98e2SPeter Wemm 	char *f;
1244c2aa98e2SPeter Wemm {
1245c2aa98e2SPeter Wemm 	register int i;
124640266059SGregory Neil Shapiro 	int save_errno;
1247c2aa98e2SPeter Wemm 
1248c2aa98e2SPeter Wemm 	if (LogLevel > 98)
124940266059SGregory Neil Shapiro 		sm_syslog(LOG_DEBUG, CurEnv->e_id, "unlink %s", f);
1250c2aa98e2SPeter Wemm 
1251c2aa98e2SPeter Wemm 	i = unlink(f);
125240266059SGregory Neil Shapiro 	save_errno = errno;
1253c2aa98e2SPeter Wemm 	if (i < 0 && LogLevel > 97)
125440266059SGregory Neil Shapiro 		sm_syslog(LOG_DEBUG, CurEnv->e_id, "%s: unlink-fail %d",
1255c2aa98e2SPeter Wemm 			  f, errno);
125640266059SGregory Neil Shapiro 	if (i >= 0)
125740266059SGregory Neil Shapiro 		SYNC_DIR(f, false);
125840266059SGregory Neil Shapiro 	errno = save_errno;
125940266059SGregory Neil Shapiro 	return i;
1260c2aa98e2SPeter Wemm }
1261d0cef73dSGregory Neil Shapiro 
126240266059SGregory Neil Shapiro /*
1263c2aa98e2SPeter Wemm **  SFGETS -- "safe" fgets -- times out and ignores random interrupts.
1264c2aa98e2SPeter Wemm **
1265c2aa98e2SPeter Wemm **	Parameters:
1266c2aa98e2SPeter Wemm **		buf -- place to put the input line.
1267c2aa98e2SPeter Wemm **		siz -- size of buf.
1268c2aa98e2SPeter Wemm **		fp -- file to read from.
1269c2aa98e2SPeter Wemm **		timeout -- the timeout before error occurs.
1270c2aa98e2SPeter Wemm **		during -- what we are trying to read (for error messages).
1271c2aa98e2SPeter Wemm **
1272c2aa98e2SPeter Wemm **	Returns:
127340266059SGregory Neil Shapiro **		NULL on error (including timeout).  This may also leave
1274c2aa98e2SPeter Wemm **			buf containing a null string.
1275c2aa98e2SPeter Wemm **		buf otherwise.
1276c2aa98e2SPeter Wemm */
1277c2aa98e2SPeter Wemm 
127806f25ae9SGregory Neil Shapiro 
1279c2aa98e2SPeter Wemm char *
1280c2aa98e2SPeter Wemm sfgets(buf, siz, fp, timeout, during)
1281c2aa98e2SPeter Wemm 	char *buf;
1282c2aa98e2SPeter Wemm 	int siz;
128340266059SGregory Neil Shapiro 	SM_FILE_T *fp;
1284c2aa98e2SPeter Wemm 	time_t timeout;
1285c2aa98e2SPeter Wemm 	char *during;
1286c2aa98e2SPeter Wemm {
1287c2aa98e2SPeter Wemm 	register char *p;
1288552d4955SGregory Neil Shapiro 	int save_errno, io_timeout, l;
128940266059SGregory Neil Shapiro 
129040266059SGregory Neil Shapiro 	SM_REQUIRE(siz > 0);
129140266059SGregory Neil Shapiro 	SM_REQUIRE(buf != NULL);
1292c2aa98e2SPeter Wemm 
1293c2aa98e2SPeter Wemm 	if (fp == NULL)
1294c2aa98e2SPeter Wemm 	{
1295c2aa98e2SPeter Wemm 		buf[0] = '\0';
129640266059SGregory Neil Shapiro 		errno = EBADF;
1297c2aa98e2SPeter Wemm 		return NULL;
1298c2aa98e2SPeter Wemm 	}
1299c2aa98e2SPeter Wemm 
130040266059SGregory Neil Shapiro 	/* try to read */
1301552d4955SGregory Neil Shapiro 	l = -1;
130240266059SGregory Neil Shapiro 	errno = 0;
130340266059SGregory Neil Shapiro 
130440266059SGregory Neil Shapiro 	/* convert the timeout to sm_io notation */
130540266059SGregory Neil Shapiro 	io_timeout = (timeout <= 0) ? SM_TIME_DEFAULT : timeout * 1000;
130640266059SGregory Neil Shapiro 	while (!sm_io_eof(fp) && !sm_io_error(fp))
1307c2aa98e2SPeter Wemm 	{
130840266059SGregory Neil Shapiro 		errno = 0;
1309552d4955SGregory Neil Shapiro 		l = sm_io_fgets(fp, io_timeout, buf, siz);
1310552d4955SGregory Neil Shapiro 		if (l < 0 && errno == EAGAIN)
1311c2aa98e2SPeter Wemm 		{
131240266059SGregory Neil Shapiro 			/* The sm_io_fgets() call timedout */
1313c2aa98e2SPeter Wemm 			if (LogLevel > 1)
1314c2aa98e2SPeter Wemm 				sm_syslog(LOG_NOTICE, CurEnv->e_id,
1315c2aa98e2SPeter Wemm 					  "timeout waiting for input from %.100s during %s",
131640266059SGregory Neil Shapiro 					  CURHOSTNAME,
1317c2aa98e2SPeter Wemm 					  during);
1318c2aa98e2SPeter Wemm 			buf[0] = '\0';
1319c2aa98e2SPeter Wemm #if XDEBUG
1320c2aa98e2SPeter Wemm 			checkfd012(during);
132106f25ae9SGregory Neil Shapiro #endif /* XDEBUG */
1322c2aa98e2SPeter Wemm 			if (TrafficLogFile != NULL)
132340266059SGregory Neil Shapiro 				(void) sm_io_fprintf(TrafficLogFile,
132440266059SGregory Neil Shapiro 						     SM_TIME_DEFAULT,
132540266059SGregory Neil Shapiro 						     "%05d <<< [TIMEOUT]\n",
132640266059SGregory Neil Shapiro 						     (int) CurrentPid);
132740266059SGregory Neil Shapiro 			errno = ETIMEDOUT;
132806f25ae9SGregory Neil Shapiro 			return NULL;
1329c2aa98e2SPeter Wemm 		}
1330552d4955SGregory Neil Shapiro 		if (l >= 0 || errno != EINTR)
1331c2aa98e2SPeter Wemm 			break;
133240266059SGregory Neil Shapiro 		(void) sm_io_clearerr(fp);
1333c2aa98e2SPeter Wemm 	}
13342e43090eSPeter Wemm 	save_errno = errno;
1335c2aa98e2SPeter Wemm 
1336c2aa98e2SPeter Wemm 	/* clean up the books and exit */
1337c2aa98e2SPeter Wemm 	LineNumber++;
1338552d4955SGregory Neil Shapiro 	if (l < 0)
1339c2aa98e2SPeter Wemm 	{
1340c2aa98e2SPeter Wemm 		buf[0] = '\0';
1341c2aa98e2SPeter Wemm 		if (TrafficLogFile != NULL)
134240266059SGregory Neil Shapiro 			(void) sm_io_fprintf(TrafficLogFile, SM_TIME_DEFAULT,
134340266059SGregory Neil Shapiro 					     "%05d <<< [EOF]\n",
134440266059SGregory Neil Shapiro 					     (int) CurrentPid);
13452e43090eSPeter Wemm 		errno = save_errno;
134606f25ae9SGregory Neil Shapiro 		return NULL;
1347c2aa98e2SPeter Wemm 	}
1348c2aa98e2SPeter Wemm 	if (TrafficLogFile != NULL)
134940266059SGregory Neil Shapiro 		(void) sm_io_fprintf(TrafficLogFile, SM_TIME_DEFAULT,
135040266059SGregory Neil Shapiro 				     "%05d <<< %s", (int) CurrentPid, buf);
1351c2aa98e2SPeter Wemm 	if (SevenBitInput)
1352c2aa98e2SPeter Wemm 	{
1353c2aa98e2SPeter Wemm 		for (p = buf; *p != '\0'; p++)
1354c2aa98e2SPeter Wemm 			*p &= ~0200;
1355c2aa98e2SPeter Wemm 	}
1356c2aa98e2SPeter Wemm 	else if (!HasEightBits)
1357c2aa98e2SPeter Wemm 	{
1358c2aa98e2SPeter Wemm 		for (p = buf; *p != '\0'; p++)
1359c2aa98e2SPeter Wemm 		{
1360c2aa98e2SPeter Wemm 			if (bitset(0200, *p))
1361c2aa98e2SPeter Wemm 			{
136240266059SGregory Neil Shapiro 				HasEightBits = true;
1363c2aa98e2SPeter Wemm 				break;
1364c2aa98e2SPeter Wemm 			}
1365c2aa98e2SPeter Wemm 		}
1366c2aa98e2SPeter Wemm 	}
136706f25ae9SGregory Neil Shapiro 	return buf;
1368c2aa98e2SPeter Wemm }
1369d0cef73dSGregory Neil Shapiro 
13708774250cSGregory Neil Shapiro /*
137140266059SGregory Neil Shapiro **  FGETFOLDED -- like fgets, but knows about folded lines.
1372c2aa98e2SPeter Wemm **
1373c2aa98e2SPeter Wemm **	Parameters:
1374c2aa98e2SPeter Wemm **		buf -- place to put result.
1375d0cef73dSGregory Neil Shapiro **		np -- pointer to bytes available; will be updated with
1376d0cef73dSGregory Neil Shapiro **			the actual buffer size (not number of bytes filled)
1377d0cef73dSGregory Neil Shapiro **			on return.
1378c2aa98e2SPeter Wemm **		f -- file to read from.
1379c2aa98e2SPeter Wemm **
1380c2aa98e2SPeter Wemm **	Returns:
138140266059SGregory Neil Shapiro **		input line(s) on success, NULL on error or SM_IO_EOF.
1382c2aa98e2SPeter Wemm **		This will normally be buf -- unless the line is too
138340266059SGregory Neil Shapiro **			long, when it will be sm_malloc_x()ed.
1384c2aa98e2SPeter Wemm **
1385c2aa98e2SPeter Wemm **	Side Effects:
1386c2aa98e2SPeter Wemm **		buf gets lines from f, with continuation lines (lines
1387c2aa98e2SPeter Wemm **		with leading white space) appended.  CRLF's are mapped
1388c2aa98e2SPeter Wemm **		into single newlines.  Any trailing NL is stripped.
1389c2aa98e2SPeter Wemm */
1390c2aa98e2SPeter Wemm 
1391c2aa98e2SPeter Wemm char *
1392d0cef73dSGregory Neil Shapiro fgetfolded(buf, np, f)
1393c2aa98e2SPeter Wemm 	char *buf;
1394d0cef73dSGregory Neil Shapiro 	int *np;
139540266059SGregory Neil Shapiro 	SM_FILE_T *f;
1396c2aa98e2SPeter Wemm {
1397c2aa98e2SPeter Wemm 	register char *p = buf;
1398c2aa98e2SPeter Wemm 	char *bp = buf;
1399c2aa98e2SPeter Wemm 	register int i;
1400d0cef73dSGregory Neil Shapiro 	int n;
1401c2aa98e2SPeter Wemm 
1402d0cef73dSGregory Neil Shapiro 	SM_REQUIRE(np != NULL);
1403d0cef73dSGregory Neil Shapiro 	n = *np;
140440266059SGregory Neil Shapiro 	SM_REQUIRE(n > 0);
140540266059SGregory Neil Shapiro 	SM_REQUIRE(buf != NULL);
140640266059SGregory Neil Shapiro 	if (f == NULL)
140740266059SGregory Neil Shapiro 	{
140840266059SGregory Neil Shapiro 		buf[0] = '\0';
140940266059SGregory Neil Shapiro 		errno = EBADF;
141040266059SGregory Neil Shapiro 		return NULL;
141140266059SGregory Neil Shapiro 	}
141240266059SGregory Neil Shapiro 
1413c2aa98e2SPeter Wemm 	n--;
141440266059SGregory Neil Shapiro 	while ((i = sm_io_getc(f, SM_TIME_DEFAULT)) != SM_IO_EOF)
1415c2aa98e2SPeter Wemm 	{
1416c2aa98e2SPeter Wemm 		if (i == '\r')
1417c2aa98e2SPeter Wemm 		{
141840266059SGregory Neil Shapiro 			i = sm_io_getc(f, SM_TIME_DEFAULT);
1419c2aa98e2SPeter Wemm 			if (i != '\n')
1420c2aa98e2SPeter Wemm 			{
142140266059SGregory Neil Shapiro 				if (i != SM_IO_EOF)
142240266059SGregory Neil Shapiro 					(void) sm_io_ungetc(f, SM_TIME_DEFAULT,
142340266059SGregory Neil Shapiro 							    i);
1424c2aa98e2SPeter Wemm 				i = '\r';
1425c2aa98e2SPeter Wemm 			}
1426c2aa98e2SPeter Wemm 		}
1427c2aa98e2SPeter Wemm 		if (--n <= 0)
1428c2aa98e2SPeter Wemm 		{
1429c2aa98e2SPeter Wemm 			/* allocate new space */
1430c2aa98e2SPeter Wemm 			char *nbp;
1431c2aa98e2SPeter Wemm 			int nn;
1432c2aa98e2SPeter Wemm 
1433c2aa98e2SPeter Wemm 			nn = (p - bp);
1434c2aa98e2SPeter Wemm 			if (nn < MEMCHUNKSIZE)
1435c2aa98e2SPeter Wemm 				nn *= 2;
1436c2aa98e2SPeter Wemm 			else
1437c2aa98e2SPeter Wemm 				nn += MEMCHUNKSIZE;
143840266059SGregory Neil Shapiro 			nbp = sm_malloc_x(nn);
143906f25ae9SGregory Neil Shapiro 			memmove(nbp, bp, p - bp);
1440c2aa98e2SPeter Wemm 			p = &nbp[p - bp];
1441c2aa98e2SPeter Wemm 			if (bp != buf)
14428774250cSGregory Neil Shapiro 				sm_free(bp);
1443c2aa98e2SPeter Wemm 			bp = nbp;
1444c2aa98e2SPeter Wemm 			n = nn - (p - bp);
1445d0cef73dSGregory Neil Shapiro 			*np = nn;
1446c2aa98e2SPeter Wemm 		}
1447c2aa98e2SPeter Wemm 		*p++ = i;
1448c2aa98e2SPeter Wemm 		if (i == '\n')
1449c2aa98e2SPeter Wemm 		{
1450c2aa98e2SPeter Wemm 			LineNumber++;
145140266059SGregory Neil Shapiro 			i = sm_io_getc(f, SM_TIME_DEFAULT);
145240266059SGregory Neil Shapiro 			if (i != SM_IO_EOF)
145340266059SGregory Neil Shapiro 				(void) sm_io_ungetc(f, SM_TIME_DEFAULT, i);
1454c2aa98e2SPeter Wemm 			if (i != ' ' && i != '\t')
1455c2aa98e2SPeter Wemm 				break;
1456c2aa98e2SPeter Wemm 		}
1457c2aa98e2SPeter Wemm 	}
1458c2aa98e2SPeter Wemm 	if (p == bp)
145906f25ae9SGregory Neil Shapiro 		return NULL;
1460c2aa98e2SPeter Wemm 	if (p[-1] == '\n')
1461c2aa98e2SPeter Wemm 		p--;
1462c2aa98e2SPeter Wemm 	*p = '\0';
146306f25ae9SGregory Neil Shapiro 	return bp;
1464c2aa98e2SPeter Wemm }
1465d0cef73dSGregory Neil Shapiro 
146640266059SGregory Neil Shapiro /*
1467c2aa98e2SPeter Wemm **  CURTIME -- return current time.
1468c2aa98e2SPeter Wemm **
1469c2aa98e2SPeter Wemm **	Parameters:
1470c2aa98e2SPeter Wemm **		none.
1471c2aa98e2SPeter Wemm **
1472c2aa98e2SPeter Wemm **	Returns:
1473c2aa98e2SPeter Wemm **		the current time.
1474c2aa98e2SPeter Wemm */
1475c2aa98e2SPeter Wemm 
1476c2aa98e2SPeter Wemm time_t
1477c2aa98e2SPeter Wemm curtime()
1478c2aa98e2SPeter Wemm {
1479c2aa98e2SPeter Wemm 	auto time_t t;
1480c2aa98e2SPeter Wemm 
1481c2aa98e2SPeter Wemm 	(void) time(&t);
148206f25ae9SGregory Neil Shapiro 	return t;
1483c2aa98e2SPeter Wemm }
1484d0cef73dSGregory Neil Shapiro 
148540266059SGregory Neil Shapiro /*
1486c2aa98e2SPeter Wemm **  ATOBOOL -- convert a string representation to boolean.
1487c2aa98e2SPeter Wemm **
148840266059SGregory Neil Shapiro **	Defaults to false
1489c2aa98e2SPeter Wemm **
1490c2aa98e2SPeter Wemm **	Parameters:
149140266059SGregory Neil Shapiro **		s -- string to convert.  Takes "tTyY", empty, and NULL as true,
1492c2aa98e2SPeter Wemm **			others as false.
1493c2aa98e2SPeter Wemm **
1494c2aa98e2SPeter Wemm **	Returns:
1495c2aa98e2SPeter Wemm **		A boolean representation of the string.
1496c2aa98e2SPeter Wemm */
1497c2aa98e2SPeter Wemm 
1498c2aa98e2SPeter Wemm bool
1499c2aa98e2SPeter Wemm atobool(s)
1500c2aa98e2SPeter Wemm 	register char *s;
1501c2aa98e2SPeter Wemm {
1502c2aa98e2SPeter Wemm 	if (s == NULL || *s == '\0' || strchr("tTyY", *s) != NULL)
150340266059SGregory Neil Shapiro 		return true;
150440266059SGregory Neil Shapiro 	return false;
1505c2aa98e2SPeter Wemm }
1506d0cef73dSGregory Neil Shapiro 
150740266059SGregory Neil Shapiro /*
1508c2aa98e2SPeter Wemm **  ATOOCT -- convert a string representation to octal.
1509c2aa98e2SPeter Wemm **
1510c2aa98e2SPeter Wemm **	Parameters:
1511c2aa98e2SPeter Wemm **		s -- string to convert.
1512c2aa98e2SPeter Wemm **
1513c2aa98e2SPeter Wemm **	Returns:
1514c2aa98e2SPeter Wemm **		An integer representing the string interpreted as an
1515c2aa98e2SPeter Wemm **		octal number.
1516c2aa98e2SPeter Wemm */
1517c2aa98e2SPeter Wemm 
1518c2aa98e2SPeter Wemm int
1519c2aa98e2SPeter Wemm atooct(s)
1520c2aa98e2SPeter Wemm 	register char *s;
1521c2aa98e2SPeter Wemm {
1522c2aa98e2SPeter Wemm 	register int i = 0;
1523c2aa98e2SPeter Wemm 
1524c2aa98e2SPeter Wemm 	while (*s >= '0' && *s <= '7')
1525c2aa98e2SPeter Wemm 		i = (i << 3) | (*s++ - '0');
152606f25ae9SGregory Neil Shapiro 	return i;
1527c2aa98e2SPeter Wemm }
1528d0cef73dSGregory Neil Shapiro 
152940266059SGregory Neil Shapiro /*
1530c2aa98e2SPeter Wemm **  BITINTERSECT -- tell if two bitmaps intersect
1531c2aa98e2SPeter Wemm **
1532c2aa98e2SPeter Wemm **	Parameters:
1533c2aa98e2SPeter Wemm **		a, b -- the bitmaps in question
1534c2aa98e2SPeter Wemm **
1535c2aa98e2SPeter Wemm **	Returns:
153640266059SGregory Neil Shapiro **		true if they have a non-null intersection
153740266059SGregory Neil Shapiro **		false otherwise
1538c2aa98e2SPeter Wemm */
1539c2aa98e2SPeter Wemm 
1540c2aa98e2SPeter Wemm bool
1541c2aa98e2SPeter Wemm bitintersect(a, b)
154206f25ae9SGregory Neil Shapiro 	BITMAP256 a;
154306f25ae9SGregory Neil Shapiro 	BITMAP256 b;
1544c2aa98e2SPeter Wemm {
1545c2aa98e2SPeter Wemm 	int i;
1546c2aa98e2SPeter Wemm 
1547c2aa98e2SPeter Wemm 	for (i = BITMAPBYTES / sizeof(int); --i >= 0; )
1548193538b7SGregory Neil Shapiro 	{
1549c2aa98e2SPeter Wemm 		if ((a[i] & b[i]) != 0)
155040266059SGregory Neil Shapiro 			return true;
1551193538b7SGregory Neil Shapiro 	}
155240266059SGregory Neil Shapiro 	return false;
1553c2aa98e2SPeter Wemm }
1554d0cef73dSGregory Neil Shapiro 
155540266059SGregory Neil Shapiro /*
1556c2aa98e2SPeter Wemm **  BITZEROP -- tell if a bitmap is all zero
1557c2aa98e2SPeter Wemm **
1558c2aa98e2SPeter Wemm **	Parameters:
1559c2aa98e2SPeter Wemm **		map -- the bit map to check
1560c2aa98e2SPeter Wemm **
1561c2aa98e2SPeter Wemm **	Returns:
156240266059SGregory Neil Shapiro **		true if map is all zero.
156340266059SGregory Neil Shapiro **		false if there are any bits set in map.
1564c2aa98e2SPeter Wemm */
1565c2aa98e2SPeter Wemm 
1566c2aa98e2SPeter Wemm bool
1567c2aa98e2SPeter Wemm bitzerop(map)
156806f25ae9SGregory Neil Shapiro 	BITMAP256 map;
1569c2aa98e2SPeter Wemm {
1570c2aa98e2SPeter Wemm 	int i;
1571c2aa98e2SPeter Wemm 
1572c2aa98e2SPeter Wemm 	for (i = BITMAPBYTES / sizeof(int); --i >= 0; )
1573193538b7SGregory Neil Shapiro 	{
1574c2aa98e2SPeter Wemm 		if (map[i] != 0)
157540266059SGregory Neil Shapiro 			return false;
1576193538b7SGregory Neil Shapiro 	}
157740266059SGregory Neil Shapiro 	return true;
1578c2aa98e2SPeter Wemm }
1579d0cef73dSGregory Neil Shapiro 
158040266059SGregory Neil Shapiro /*
1581c2aa98e2SPeter Wemm **  STRCONTAINEDIN -- tell if one string is contained in another
1582c2aa98e2SPeter Wemm **
1583c2aa98e2SPeter Wemm **	Parameters:
158440266059SGregory Neil Shapiro **		icase -- ignore case?
1585c2aa98e2SPeter Wemm **		a -- possible substring.
1586c2aa98e2SPeter Wemm **		b -- possible superstring.
1587c2aa98e2SPeter Wemm **
1588c2aa98e2SPeter Wemm **	Returns:
158940266059SGregory Neil Shapiro **		true if a is contained in b (case insensitive).
159040266059SGregory Neil Shapiro **		false otherwise.
1591c2aa98e2SPeter Wemm */
1592c2aa98e2SPeter Wemm 
1593c2aa98e2SPeter Wemm bool
159440266059SGregory Neil Shapiro strcontainedin(icase, a, b)
159540266059SGregory Neil Shapiro 	bool icase;
1596c2aa98e2SPeter Wemm 	register char *a;
1597c2aa98e2SPeter Wemm 	register char *b;
1598c2aa98e2SPeter Wemm {
1599c2aa98e2SPeter Wemm 	int la;
1600c2aa98e2SPeter Wemm 	int lb;
1601c2aa98e2SPeter Wemm 	int c;
1602c2aa98e2SPeter Wemm 
1603c2aa98e2SPeter Wemm 	la = strlen(a);
1604c2aa98e2SPeter Wemm 	lb = strlen(b);
1605c2aa98e2SPeter Wemm 	c = *a;
160640266059SGregory Neil Shapiro 	if (icase && isascii(c) && isupper(c))
1607c2aa98e2SPeter Wemm 		c = tolower(c);
1608c2aa98e2SPeter Wemm 	for (; lb-- >= la; b++)
1609c2aa98e2SPeter Wemm 	{
161040266059SGregory Neil Shapiro 		if (icase)
161140266059SGregory Neil Shapiro 		{
161240266059SGregory Neil Shapiro 			if (*b != c &&
161340266059SGregory Neil Shapiro 			    isascii(*b) && isupper(*b) && tolower(*b) != c)
1614c2aa98e2SPeter Wemm 				continue;
161540266059SGregory Neil Shapiro 			if (sm_strncasecmp(a, b, la) == 0)
161640266059SGregory Neil Shapiro 				return true;
1617c2aa98e2SPeter Wemm 		}
161840266059SGregory Neil Shapiro 		else
161940266059SGregory Neil Shapiro 		{
162040266059SGregory Neil Shapiro 			if (*b != c)
162140266059SGregory Neil Shapiro 				continue;
162240266059SGregory Neil Shapiro 			if (strncmp(a, b, la) == 0)
162340266059SGregory Neil Shapiro 				return true;
1624c2aa98e2SPeter Wemm 		}
162540266059SGregory Neil Shapiro 	}
162640266059SGregory Neil Shapiro 	return false;
162740266059SGregory Neil Shapiro }
1628d0cef73dSGregory Neil Shapiro 
162940266059SGregory Neil Shapiro /*
1630c2aa98e2SPeter Wemm **  CHECKFD012 -- check low numbered file descriptors
1631c2aa98e2SPeter Wemm **
1632c2aa98e2SPeter Wemm **	File descriptors 0, 1, and 2 should be open at all times.
1633c2aa98e2SPeter Wemm **	This routine verifies that, and fixes it if not true.
1634c2aa98e2SPeter Wemm **
1635c2aa98e2SPeter Wemm **	Parameters:
1636c2aa98e2SPeter Wemm **		where -- a tag printed if the assertion failed
1637c2aa98e2SPeter Wemm **
1638c2aa98e2SPeter Wemm **	Returns:
1639c2aa98e2SPeter Wemm **		none
1640c2aa98e2SPeter Wemm */
1641c2aa98e2SPeter Wemm 
1642c2aa98e2SPeter Wemm void
1643c2aa98e2SPeter Wemm checkfd012(where)
1644c2aa98e2SPeter Wemm 	char *where;
1645c2aa98e2SPeter Wemm {
1646c2aa98e2SPeter Wemm #if XDEBUG
1647c2aa98e2SPeter Wemm 	register int i;
1648c2aa98e2SPeter Wemm 
1649c2aa98e2SPeter Wemm 	for (i = 0; i < 3; i++)
1650c2aa98e2SPeter Wemm 		fill_fd(i, where);
1651c2aa98e2SPeter Wemm #endif /* XDEBUG */
1652c2aa98e2SPeter Wemm }
1653d0cef73dSGregory Neil Shapiro 
165440266059SGregory Neil Shapiro /*
1655c2aa98e2SPeter Wemm **  CHECKFDOPEN -- make sure file descriptor is open -- for extended debugging
1656c2aa98e2SPeter Wemm **
1657c2aa98e2SPeter Wemm **	Parameters:
1658c2aa98e2SPeter Wemm **		fd -- file descriptor to check.
1659c2aa98e2SPeter Wemm **		where -- tag to print on failure.
1660c2aa98e2SPeter Wemm **
1661c2aa98e2SPeter Wemm **	Returns:
1662c2aa98e2SPeter Wemm **		none.
1663c2aa98e2SPeter Wemm */
1664c2aa98e2SPeter Wemm 
1665c2aa98e2SPeter Wemm void
1666c2aa98e2SPeter Wemm checkfdopen(fd, where)
1667c2aa98e2SPeter Wemm 	int fd;
1668c2aa98e2SPeter Wemm 	char *where;
1669c2aa98e2SPeter Wemm {
1670c2aa98e2SPeter Wemm #if XDEBUG
1671c2aa98e2SPeter Wemm 	struct stat st;
1672c2aa98e2SPeter Wemm 
1673c2aa98e2SPeter Wemm 	if (fstat(fd, &st) < 0 && errno == EBADF)
1674c2aa98e2SPeter Wemm 	{
1675c2aa98e2SPeter Wemm 		syserr("checkfdopen(%d): %s not open as expected!", fd, where);
167640266059SGregory Neil Shapiro 		printopenfds(true);
1677c2aa98e2SPeter Wemm 	}
167806f25ae9SGregory Neil Shapiro #endif /* XDEBUG */
1679c2aa98e2SPeter Wemm }
1680d0cef73dSGregory Neil Shapiro 
168140266059SGregory Neil Shapiro /*
1682c2aa98e2SPeter Wemm **  CHECKFDS -- check for new or missing file descriptors
1683c2aa98e2SPeter Wemm **
1684c2aa98e2SPeter Wemm **	Parameters:
1685c2aa98e2SPeter Wemm **		where -- tag for printing.  If null, take a base line.
1686c2aa98e2SPeter Wemm **
1687c2aa98e2SPeter Wemm **	Returns:
1688c2aa98e2SPeter Wemm **		none
1689c2aa98e2SPeter Wemm **
1690c2aa98e2SPeter Wemm **	Side Effects:
1691c2aa98e2SPeter Wemm **		If where is set, shows changes since the last call.
1692c2aa98e2SPeter Wemm */
1693c2aa98e2SPeter Wemm 
1694c2aa98e2SPeter Wemm void
1695c2aa98e2SPeter Wemm checkfds(where)
1696c2aa98e2SPeter Wemm 	char *where;
1697c2aa98e2SPeter Wemm {
1698c2aa98e2SPeter Wemm 	int maxfd;
1699c2aa98e2SPeter Wemm 	register int fd;
170040266059SGregory Neil Shapiro 	bool printhdr = true;
1701c2aa98e2SPeter Wemm 	int save_errno = errno;
170206f25ae9SGregory Neil Shapiro 	static BITMAP256 baseline;
1703c2aa98e2SPeter Wemm 	extern int DtableSize;
1704c2aa98e2SPeter Wemm 
1705193538b7SGregory Neil Shapiro 	if (DtableSize > BITMAPBITS)
1706193538b7SGregory Neil Shapiro 		maxfd = BITMAPBITS;
1707c2aa98e2SPeter Wemm 	else
1708c2aa98e2SPeter Wemm 		maxfd = DtableSize;
1709c2aa98e2SPeter Wemm 	if (where == NULL)
1710c2aa98e2SPeter Wemm 		clrbitmap(baseline);
1711c2aa98e2SPeter Wemm 
1712c2aa98e2SPeter Wemm 	for (fd = 0; fd < maxfd; fd++)
1713c2aa98e2SPeter Wemm 	{
1714c2aa98e2SPeter Wemm 		struct stat stbuf;
1715c2aa98e2SPeter Wemm 
1716c2aa98e2SPeter Wemm 		if (fstat(fd, &stbuf) < 0 && errno != EOPNOTSUPP)
1717c2aa98e2SPeter Wemm 		{
1718c2aa98e2SPeter Wemm 			if (!bitnset(fd, baseline))
1719c2aa98e2SPeter Wemm 				continue;
1720c2aa98e2SPeter Wemm 			clrbitn(fd, baseline);
1721c2aa98e2SPeter Wemm 		}
1722c2aa98e2SPeter Wemm 		else if (!bitnset(fd, baseline))
1723c2aa98e2SPeter Wemm 			setbitn(fd, baseline);
1724c2aa98e2SPeter Wemm 		else
1725c2aa98e2SPeter Wemm 			continue;
1726c2aa98e2SPeter Wemm 
1727c2aa98e2SPeter Wemm 		/* file state has changed */
1728c2aa98e2SPeter Wemm 		if (where == NULL)
1729c2aa98e2SPeter Wemm 			continue;
1730c2aa98e2SPeter Wemm 		if (printhdr)
1731c2aa98e2SPeter Wemm 		{
1732c2aa98e2SPeter Wemm 			sm_syslog(LOG_DEBUG, CurEnv->e_id,
1733c2aa98e2SPeter Wemm 				  "%s: changed fds:",
1734c2aa98e2SPeter Wemm 				  where);
173540266059SGregory Neil Shapiro 			printhdr = false;
1736c2aa98e2SPeter Wemm 		}
173740266059SGregory Neil Shapiro 		dumpfd(fd, true, true);
1738c2aa98e2SPeter Wemm 	}
1739c2aa98e2SPeter Wemm 	errno = save_errno;
1740c2aa98e2SPeter Wemm }
1741d0cef73dSGregory Neil Shapiro 
174240266059SGregory Neil Shapiro /*
1743c2aa98e2SPeter Wemm **  PRINTOPENFDS -- print the open file descriptors (for debugging)
1744c2aa98e2SPeter Wemm **
1745c2aa98e2SPeter Wemm **	Parameters:
1746c2aa98e2SPeter Wemm **		logit -- if set, send output to syslog; otherwise
1747c2aa98e2SPeter Wemm **			print for debugging.
1748c2aa98e2SPeter Wemm **
1749c2aa98e2SPeter Wemm **	Returns:
1750c2aa98e2SPeter Wemm **		none.
1751c2aa98e2SPeter Wemm */
1752c2aa98e2SPeter Wemm 
175306f25ae9SGregory Neil Shapiro #if NETINET || NETINET6
1754c2aa98e2SPeter Wemm # include <arpa/inet.h>
175506f25ae9SGregory Neil Shapiro #endif /* NETINET || NETINET6 */
1756c2aa98e2SPeter Wemm 
1757c2aa98e2SPeter Wemm void
1758c2aa98e2SPeter Wemm printopenfds(logit)
1759c2aa98e2SPeter Wemm 	bool logit;
1760c2aa98e2SPeter Wemm {
1761c2aa98e2SPeter Wemm 	register int fd;
1762c2aa98e2SPeter Wemm 	extern int DtableSize;
1763c2aa98e2SPeter Wemm 
1764c2aa98e2SPeter Wemm 	for (fd = 0; fd < DtableSize; fd++)
176540266059SGregory Neil Shapiro 		dumpfd(fd, false, logit);
1766c2aa98e2SPeter Wemm }
1767d0cef73dSGregory Neil Shapiro 
176840266059SGregory Neil Shapiro /*
1769c2aa98e2SPeter Wemm **  DUMPFD -- dump a file descriptor
1770c2aa98e2SPeter Wemm **
1771c2aa98e2SPeter Wemm **	Parameters:
1772c2aa98e2SPeter Wemm **		fd -- the file descriptor to dump.
1773c2aa98e2SPeter Wemm **		printclosed -- if set, print a notification even if
1774c2aa98e2SPeter Wemm **			it is closed; otherwise print nothing.
1775e92d3f3fSGregory Neil Shapiro **		logit -- if set, use sm_syslog instead of sm_dprintf()
177640266059SGregory Neil Shapiro **
177740266059SGregory Neil Shapiro **	Returns:
177840266059SGregory Neil Shapiro **		none.
1779c2aa98e2SPeter Wemm */
1780c2aa98e2SPeter Wemm 
1781c2aa98e2SPeter Wemm void
1782c2aa98e2SPeter Wemm dumpfd(fd, printclosed, logit)
1783c2aa98e2SPeter Wemm 	int fd;
1784c2aa98e2SPeter Wemm 	bool printclosed;
1785c2aa98e2SPeter Wemm 	bool logit;
1786c2aa98e2SPeter Wemm {
1787c2aa98e2SPeter Wemm 	register char *p;
1788c2aa98e2SPeter Wemm 	char *hp;
1789c2aa98e2SPeter Wemm #ifdef S_IFSOCK
1790c2aa98e2SPeter Wemm 	SOCKADDR sa;
179106f25ae9SGregory Neil Shapiro #endif /* S_IFSOCK */
1792c2aa98e2SPeter Wemm 	auto SOCKADDR_LEN_T slen;
1793c2aa98e2SPeter Wemm 	int i;
1794c2aa98e2SPeter Wemm #if STAT64 > 0
1795c2aa98e2SPeter Wemm 	struct stat64 st;
179606f25ae9SGregory Neil Shapiro #else /* STAT64 > 0 */
1797c2aa98e2SPeter Wemm 	struct stat st;
179806f25ae9SGregory Neil Shapiro #endif /* STAT64 > 0 */
1799c2aa98e2SPeter Wemm 	char buf[200];
1800c2aa98e2SPeter Wemm 
1801c2aa98e2SPeter Wemm 	p = buf;
180240266059SGregory Neil Shapiro 	(void) sm_snprintf(p, SPACELEFT(buf, p), "%3d: ", fd);
1803c2aa98e2SPeter Wemm 	p += strlen(p);
1804c2aa98e2SPeter Wemm 
1805c2aa98e2SPeter Wemm 	if (
1806c2aa98e2SPeter Wemm #if STAT64 > 0
1807c2aa98e2SPeter Wemm 	    fstat64(fd, &st)
180806f25ae9SGregory Neil Shapiro #else /* STAT64 > 0 */
1809c2aa98e2SPeter Wemm 	    fstat(fd, &st)
181006f25ae9SGregory Neil Shapiro #endif /* STAT64 > 0 */
1811c2aa98e2SPeter Wemm 	    < 0)
1812c2aa98e2SPeter Wemm 	{
1813c2aa98e2SPeter Wemm 		if (errno != EBADF)
1814c2aa98e2SPeter Wemm 		{
181540266059SGregory Neil Shapiro 			(void) sm_snprintf(p, SPACELEFT(buf, p),
181640266059SGregory Neil Shapiro 				"CANNOT STAT (%s)",
181740266059SGregory Neil Shapiro 				sm_errstring(errno));
1818c2aa98e2SPeter Wemm 			goto printit;
1819c2aa98e2SPeter Wemm 		}
1820c2aa98e2SPeter Wemm 		else if (printclosed)
1821c2aa98e2SPeter Wemm 		{
182240266059SGregory Neil Shapiro 			(void) sm_snprintf(p, SPACELEFT(buf, p), "CLOSED");
1823c2aa98e2SPeter Wemm 			goto printit;
1824c2aa98e2SPeter Wemm 		}
1825c2aa98e2SPeter Wemm 		return;
1826c2aa98e2SPeter Wemm 	}
1827c2aa98e2SPeter Wemm 
1828605302a5SGregory Neil Shapiro 	i = fcntl(fd, F_GETFL, 0);
1829c2aa98e2SPeter Wemm 	if (i != -1)
1830c2aa98e2SPeter Wemm 	{
183140266059SGregory Neil Shapiro 		(void) sm_snprintf(p, SPACELEFT(buf, p), "fl=0x%x, ", i);
1832c2aa98e2SPeter Wemm 		p += strlen(p);
1833c2aa98e2SPeter Wemm 	}
1834c2aa98e2SPeter Wemm 
183540266059SGregory Neil Shapiro 	(void) sm_snprintf(p, SPACELEFT(buf, p), "mode=%o: ",
183640266059SGregory Neil Shapiro 			(int) st.st_mode);
1837c2aa98e2SPeter Wemm 	p += strlen(p);
1838c2aa98e2SPeter Wemm 	switch (st.st_mode & S_IFMT)
1839c2aa98e2SPeter Wemm 	{
1840c2aa98e2SPeter Wemm #ifdef S_IFSOCK
1841c2aa98e2SPeter Wemm 	  case S_IFSOCK:
184240266059SGregory Neil Shapiro 		(void) sm_snprintf(p, SPACELEFT(buf, p), "SOCK ");
1843c2aa98e2SPeter Wemm 		p += strlen(p);
1844d0cef73dSGregory Neil Shapiro 		memset(&sa, '\0', sizeof(sa));
1845d0cef73dSGregory Neil Shapiro 		slen = sizeof(sa);
1846c2aa98e2SPeter Wemm 		if (getsockname(fd, &sa.sa, &slen) < 0)
184740266059SGregory Neil Shapiro 			(void) sm_snprintf(p, SPACELEFT(buf, p), "(%s)",
184840266059SGregory Neil Shapiro 				 sm_errstring(errno));
1849c2aa98e2SPeter Wemm 		else
1850c2aa98e2SPeter Wemm 		{
1851c2aa98e2SPeter Wemm 			hp = hostnamebyanyaddr(&sa);
185206f25ae9SGregory Neil Shapiro 			if (hp == NULL)
185306f25ae9SGregory Neil Shapiro 			{
185406f25ae9SGregory Neil Shapiro 				/* EMPTY */
185506f25ae9SGregory Neil Shapiro 				/* do nothing */
185606f25ae9SGregory Neil Shapiro 			}
185706f25ae9SGregory Neil Shapiro # if NETINET
185806f25ae9SGregory Neil Shapiro 			else if (sa.sa.sa_family == AF_INET)
185940266059SGregory Neil Shapiro 				(void) sm_snprintf(p, SPACELEFT(buf, p),
186040266059SGregory Neil Shapiro 					"%s/%d", hp, ntohs(sa.sin.sin_port));
186106f25ae9SGregory Neil Shapiro # endif /* NETINET */
186206f25ae9SGregory Neil Shapiro # if NETINET6
186306f25ae9SGregory Neil Shapiro 			else if (sa.sa.sa_family == AF_INET6)
186440266059SGregory Neil Shapiro 				(void) sm_snprintf(p, SPACELEFT(buf, p),
186540266059SGregory Neil Shapiro 					"%s/%d", hp, ntohs(sa.sin6.sin6_port));
186606f25ae9SGregory Neil Shapiro # endif /* NETINET6 */
1867c2aa98e2SPeter Wemm 			else
186840266059SGregory Neil Shapiro 				(void) sm_snprintf(p, SPACELEFT(buf, p),
186940266059SGregory Neil Shapiro 					"%s", hp);
1870c2aa98e2SPeter Wemm 		}
1871c2aa98e2SPeter Wemm 		p += strlen(p);
187240266059SGregory Neil Shapiro 		(void) sm_snprintf(p, SPACELEFT(buf, p), "->");
1873c2aa98e2SPeter Wemm 		p += strlen(p);
1874d0cef73dSGregory Neil Shapiro 		slen = sizeof(sa);
1875c2aa98e2SPeter Wemm 		if (getpeername(fd, &sa.sa, &slen) < 0)
187640266059SGregory Neil Shapiro 			(void) sm_snprintf(p, SPACELEFT(buf, p), "(%s)",
187740266059SGregory Neil Shapiro 					sm_errstring(errno));
1878c2aa98e2SPeter Wemm 		else
1879c2aa98e2SPeter Wemm 		{
1880c2aa98e2SPeter Wemm 			hp = hostnamebyanyaddr(&sa);
188106f25ae9SGregory Neil Shapiro 			if (hp == NULL)
188206f25ae9SGregory Neil Shapiro 			{
188306f25ae9SGregory Neil Shapiro 				/* EMPTY */
188406f25ae9SGregory Neil Shapiro 				/* do nothing */
188506f25ae9SGregory Neil Shapiro 			}
188606f25ae9SGregory Neil Shapiro # if NETINET
188706f25ae9SGregory Neil Shapiro 			else if (sa.sa.sa_family == AF_INET)
188840266059SGregory Neil Shapiro 				(void) sm_snprintf(p, SPACELEFT(buf, p),
188940266059SGregory Neil Shapiro 					"%s/%d", hp, ntohs(sa.sin.sin_port));
189006f25ae9SGregory Neil Shapiro # endif /* NETINET */
189106f25ae9SGregory Neil Shapiro # if NETINET6
189206f25ae9SGregory Neil Shapiro 			else if (sa.sa.sa_family == AF_INET6)
189340266059SGregory Neil Shapiro 				(void) sm_snprintf(p, SPACELEFT(buf, p),
189440266059SGregory Neil Shapiro 					"%s/%d", hp, ntohs(sa.sin6.sin6_port));
189506f25ae9SGregory Neil Shapiro # endif /* NETINET6 */
1896c2aa98e2SPeter Wemm 			else
189740266059SGregory Neil Shapiro 				(void) sm_snprintf(p, SPACELEFT(buf, p),
189840266059SGregory Neil Shapiro 					"%s", hp);
1899c2aa98e2SPeter Wemm 		}
1900c2aa98e2SPeter Wemm 		break;
190106f25ae9SGregory Neil Shapiro #endif /* S_IFSOCK */
1902c2aa98e2SPeter Wemm 
1903c2aa98e2SPeter Wemm 	  case S_IFCHR:
190440266059SGregory Neil Shapiro 		(void) sm_snprintf(p, SPACELEFT(buf, p), "CHR: ");
1905c2aa98e2SPeter Wemm 		p += strlen(p);
1906c2aa98e2SPeter Wemm 		goto defprint;
1907c2aa98e2SPeter Wemm 
190840266059SGregory Neil Shapiro #ifdef S_IFBLK
1909c2aa98e2SPeter Wemm 	  case S_IFBLK:
191040266059SGregory Neil Shapiro 		(void) sm_snprintf(p, SPACELEFT(buf, p), "BLK: ");
1911c2aa98e2SPeter Wemm 		p += strlen(p);
1912c2aa98e2SPeter Wemm 		goto defprint;
191340266059SGregory Neil Shapiro #endif /* S_IFBLK */
1914c2aa98e2SPeter Wemm 
1915c2aa98e2SPeter Wemm #if defined(S_IFIFO) && (!defined(S_IFSOCK) || S_IFIFO != S_IFSOCK)
1916c2aa98e2SPeter Wemm 	  case S_IFIFO:
191740266059SGregory Neil Shapiro 		(void) sm_snprintf(p, SPACELEFT(buf, p), "FIFO: ");
1918c2aa98e2SPeter Wemm 		p += strlen(p);
1919c2aa98e2SPeter Wemm 		goto defprint;
192006f25ae9SGregory Neil Shapiro #endif /* defined(S_IFIFO) && (!defined(S_IFSOCK) || S_IFIFO != S_IFSOCK) */
1921c2aa98e2SPeter Wemm 
1922c2aa98e2SPeter Wemm #ifdef S_IFDIR
1923c2aa98e2SPeter Wemm 	  case S_IFDIR:
192440266059SGregory Neil Shapiro 		(void) sm_snprintf(p, SPACELEFT(buf, p), "DIR: ");
1925c2aa98e2SPeter Wemm 		p += strlen(p);
1926c2aa98e2SPeter Wemm 		goto defprint;
192706f25ae9SGregory Neil Shapiro #endif /* S_IFDIR */
1928c2aa98e2SPeter Wemm 
1929c2aa98e2SPeter Wemm #ifdef S_IFLNK
1930c2aa98e2SPeter Wemm 	  case S_IFLNK:
193140266059SGregory Neil Shapiro 		(void) sm_snprintf(p, SPACELEFT(buf, p), "LNK: ");
1932c2aa98e2SPeter Wemm 		p += strlen(p);
1933c2aa98e2SPeter Wemm 		goto defprint;
193406f25ae9SGregory Neil Shapiro #endif /* S_IFLNK */
1935c2aa98e2SPeter Wemm 
1936c2aa98e2SPeter Wemm 	  default:
1937c2aa98e2SPeter Wemm defprint:
193840266059SGregory Neil Shapiro 		(void) sm_snprintf(p, SPACELEFT(buf, p),
193940266059SGregory Neil Shapiro 			 "dev=%d/%d, ino=%llu, nlink=%d, u/gid=%d/%d, ",
1940c2aa98e2SPeter Wemm 			 major(st.st_dev), minor(st.st_dev),
194140266059SGregory Neil Shapiro 			 (ULONGLONG_T) st.st_ino,
194206f25ae9SGregory Neil Shapiro 			 (int) st.st_nlink, (int) st.st_uid,
194306f25ae9SGregory Neil Shapiro 			 (int) st.st_gid);
194440266059SGregory Neil Shapiro 		p += strlen(p);
194540266059SGregory Neil Shapiro 		(void) sm_snprintf(p, SPACELEFT(buf, p), "size=%llu",
194640266059SGregory Neil Shapiro 			 (ULONGLONG_T) st.st_size);
1947c2aa98e2SPeter Wemm 		break;
1948c2aa98e2SPeter Wemm 	}
1949c2aa98e2SPeter Wemm 
1950c2aa98e2SPeter Wemm printit:
1951c2aa98e2SPeter Wemm 	if (logit)
1952c2aa98e2SPeter Wemm 		sm_syslog(LOG_DEBUG, CurEnv ? CurEnv->e_id : NULL,
1953c2aa98e2SPeter Wemm 			  "%.800s", buf);
1954c2aa98e2SPeter Wemm 	else
1955e92d3f3fSGregory Neil Shapiro 		sm_dprintf("%s\n", buf);
1956c2aa98e2SPeter Wemm }
1957d0cef73dSGregory Neil Shapiro 
195840266059SGregory Neil Shapiro /*
1959c2aa98e2SPeter Wemm **  SHORTEN_HOSTNAME -- strip local domain information off of hostname.
1960c2aa98e2SPeter Wemm **
1961c2aa98e2SPeter Wemm **	Parameters:
1962c2aa98e2SPeter Wemm **		host -- the host to shorten (stripped in place).
1963c2aa98e2SPeter Wemm **
1964c2aa98e2SPeter Wemm **	Returns:
196540266059SGregory Neil Shapiro **		place where string was truncated, NULL if not truncated.
1966c2aa98e2SPeter Wemm */
1967c2aa98e2SPeter Wemm 
1968602a2b1bSGregory Neil Shapiro char *
1969c2aa98e2SPeter Wemm shorten_hostname(host)
1970c2aa98e2SPeter Wemm 	char host[];
1971c2aa98e2SPeter Wemm {
1972c2aa98e2SPeter Wemm 	register char *p;
1973c2aa98e2SPeter Wemm 	char *mydom;
1974c2aa98e2SPeter Wemm 	int i;
197540266059SGregory Neil Shapiro 	bool canon = false;
1976c2aa98e2SPeter Wemm 
1977c2aa98e2SPeter Wemm 	/* strip off final dot */
197840266059SGregory Neil Shapiro 	i = strlen(host);
197940266059SGregory Neil Shapiro 	p = &host[(i == 0) ? 0 : i - 1];
1980c2aa98e2SPeter Wemm 	if (*p == '.')
1981c2aa98e2SPeter Wemm 	{
1982c2aa98e2SPeter Wemm 		*p = '\0';
198340266059SGregory Neil Shapiro 		canon = true;
1984c2aa98e2SPeter Wemm 	}
1985c2aa98e2SPeter Wemm 
1986c2aa98e2SPeter Wemm 	/* see if there is any domain at all -- if not, we are done */
1987c2aa98e2SPeter Wemm 	p = strchr(host, '.');
1988c2aa98e2SPeter Wemm 	if (p == NULL)
1989602a2b1bSGregory Neil Shapiro 		return NULL;
1990c2aa98e2SPeter Wemm 
1991c2aa98e2SPeter Wemm 	/* yes, we have a domain -- see if it looks like us */
1992c2aa98e2SPeter Wemm 	mydom = macvalue('m', CurEnv);
1993c2aa98e2SPeter Wemm 	if (mydom == NULL)
1994c2aa98e2SPeter Wemm 		mydom = "";
1995c2aa98e2SPeter Wemm 	i = strlen(++p);
199640266059SGregory Neil Shapiro 	if ((canon ? sm_strcasecmp(p, mydom)
199740266059SGregory Neil Shapiro 		   : sm_strncasecmp(p, mydom, i)) == 0 &&
1998c2aa98e2SPeter Wemm 			(mydom[i] == '.' || mydom[i] == '\0'))
1999602a2b1bSGregory Neil Shapiro 	{
2000c2aa98e2SPeter Wemm 		*--p = '\0';
2001602a2b1bSGregory Neil Shapiro 		return p;
2002602a2b1bSGregory Neil Shapiro 	}
2003602a2b1bSGregory Neil Shapiro 	return NULL;
2004c2aa98e2SPeter Wemm }
2005d0cef73dSGregory Neil Shapiro 
200640266059SGregory Neil Shapiro /*
2007c2aa98e2SPeter Wemm **  PROG_OPEN -- open a program for reading
2008c2aa98e2SPeter Wemm **
2009c2aa98e2SPeter Wemm **	Parameters:
2010c2aa98e2SPeter Wemm **		argv -- the argument list.
2011c2aa98e2SPeter Wemm **		pfd -- pointer to a place to store the file descriptor.
2012c2aa98e2SPeter Wemm **		e -- the current envelope.
2013c2aa98e2SPeter Wemm **
2014c2aa98e2SPeter Wemm **	Returns:
2015c2aa98e2SPeter Wemm **		pid of the process -- -1 if it failed.
2016c2aa98e2SPeter Wemm */
2017c2aa98e2SPeter Wemm 
20188774250cSGregory Neil Shapiro pid_t
2019c2aa98e2SPeter Wemm prog_open(argv, pfd, e)
2020c2aa98e2SPeter Wemm 	char **argv;
2021c2aa98e2SPeter Wemm 	int *pfd;
2022c2aa98e2SPeter Wemm 	ENVELOPE *e;
2023c2aa98e2SPeter Wemm {
20248774250cSGregory Neil Shapiro 	pid_t pid;
202506f25ae9SGregory Neil Shapiro 	int save_errno;
202640266059SGregory Neil Shapiro 	int sff;
202740266059SGregory Neil Shapiro 	int ret;
2028c2aa98e2SPeter Wemm 	int fdv[2];
2029c2aa98e2SPeter Wemm 	char *p, *q;
203094c01205SGregory Neil Shapiro 	char buf[MAXPATHLEN];
2031c2aa98e2SPeter Wemm 	extern int DtableSize;
2032c2aa98e2SPeter Wemm 
2033c2aa98e2SPeter Wemm 	if (pipe(fdv) < 0)
2034c2aa98e2SPeter Wemm 	{
2035c2aa98e2SPeter Wemm 		syserr("%s: cannot create pipe for stdout", argv[0]);
2036c2aa98e2SPeter Wemm 		return -1;
2037c2aa98e2SPeter Wemm 	}
2038c2aa98e2SPeter Wemm 	pid = fork();
2039c2aa98e2SPeter Wemm 	if (pid < 0)
2040c2aa98e2SPeter Wemm 	{
2041c2aa98e2SPeter Wemm 		syserr("%s: cannot fork", argv[0]);
204206f25ae9SGregory Neil Shapiro 		(void) close(fdv[0]);
204306f25ae9SGregory Neil Shapiro 		(void) close(fdv[1]);
2044c2aa98e2SPeter Wemm 		return -1;
2045c2aa98e2SPeter Wemm 	}
2046c2aa98e2SPeter Wemm 	if (pid > 0)
2047c2aa98e2SPeter Wemm 	{
2048c2aa98e2SPeter Wemm 		/* parent */
204906f25ae9SGregory Neil Shapiro 		(void) close(fdv[1]);
2050c2aa98e2SPeter Wemm 		*pfd = fdv[0];
2051c2aa98e2SPeter Wemm 		return pid;
2052c2aa98e2SPeter Wemm 	}
2053c2aa98e2SPeter Wemm 
20548774250cSGregory Neil Shapiro 	/* Reset global flags */
20558774250cSGregory Neil Shapiro 	RestartRequest = NULL;
205640266059SGregory Neil Shapiro 	RestartWorkGroup = false;
20578774250cSGregory Neil Shapiro 	ShutdownRequest = NULL;
20588774250cSGregory Neil Shapiro 	PendingSignal = 0;
205940266059SGregory Neil Shapiro 	CurrentPid = getpid();
206040266059SGregory Neil Shapiro 
206140266059SGregory Neil Shapiro 	/*
206240266059SGregory Neil Shapiro 	**  Initialize exception stack and default exception
206340266059SGregory Neil Shapiro 	**  handler for child process.
206440266059SGregory Neil Shapiro 	*/
206540266059SGregory Neil Shapiro 
206640266059SGregory Neil Shapiro 	sm_exc_newthread(fatal_error);
206740266059SGregory Neil Shapiro 
206840266059SGregory Neil Shapiro 	/* child -- close stdin */
206940266059SGregory Neil Shapiro 	(void) close(0);
20708774250cSGregory Neil Shapiro 
2071c2aa98e2SPeter Wemm 	/* stdout goes back to parent */
207206f25ae9SGregory Neil Shapiro 	(void) close(fdv[0]);
2073c2aa98e2SPeter Wemm 	if (dup2(fdv[1], 1) < 0)
2074c2aa98e2SPeter Wemm 	{
2075c2aa98e2SPeter Wemm 		syserr("%s: cannot dup2 for stdout", argv[0]);
2076c2aa98e2SPeter Wemm 		_exit(EX_OSERR);
2077c2aa98e2SPeter Wemm 	}
207806f25ae9SGregory Neil Shapiro 	(void) close(fdv[1]);
2079c2aa98e2SPeter Wemm 
2080c2aa98e2SPeter Wemm 	/* stderr goes to transcript if available */
2081c2aa98e2SPeter Wemm 	if (e->e_xfp != NULL)
2082c2aa98e2SPeter Wemm 	{
208306f25ae9SGregory Neil Shapiro 		int xfd;
208406f25ae9SGregory Neil Shapiro 
208540266059SGregory Neil Shapiro 		xfd = sm_io_getinfo(e->e_xfp, SM_IO_WHAT_FD, NULL);
208606f25ae9SGregory Neil Shapiro 		if (xfd >= 0 && dup2(xfd, 2) < 0)
2087c2aa98e2SPeter Wemm 		{
2088c2aa98e2SPeter Wemm 			syserr("%s: cannot dup2 for stderr", argv[0]);
2089c2aa98e2SPeter Wemm 			_exit(EX_OSERR);
2090c2aa98e2SPeter Wemm 		}
2091c2aa98e2SPeter Wemm 	}
2092c2aa98e2SPeter Wemm 
2093c2aa98e2SPeter Wemm 	/* this process has no right to the queue file */
2094c2aa98e2SPeter Wemm 	if (e->e_lockfp != NULL)
2095af9557fdSGregory Neil Shapiro 	{
2096af9557fdSGregory Neil Shapiro 		int fd;
2097af9557fdSGregory Neil Shapiro 
2098af9557fdSGregory Neil Shapiro 		fd = sm_io_getinfo(e->e_lockfp, SM_IO_WHAT_FD, NULL);
2099af9557fdSGregory Neil Shapiro 		if (fd >= 0)
2100af9557fdSGregory Neil Shapiro 			(void) close(fd);
2101af9557fdSGregory Neil Shapiro 		else
2102af9557fdSGregory Neil Shapiro 			syserr("%s: lockfp does not have a fd", argv[0]);
2103af9557fdSGregory Neil Shapiro 	}
210406f25ae9SGregory Neil Shapiro 
210506f25ae9SGregory Neil Shapiro 	/* chroot to the program mailer directory, if defined */
210606f25ae9SGregory Neil Shapiro 	if (ProgMailer != NULL && ProgMailer->m_rootdir != NULL)
210706f25ae9SGregory Neil Shapiro 	{
2108d0cef73dSGregory Neil Shapiro 		expand(ProgMailer->m_rootdir, buf, sizeof(buf), e);
210906f25ae9SGregory Neil Shapiro 		if (chroot(buf) < 0)
211006f25ae9SGregory Neil Shapiro 		{
211106f25ae9SGregory Neil Shapiro 			syserr("prog_open: cannot chroot(%s)", buf);
211206f25ae9SGregory Neil Shapiro 			exit(EX_TEMPFAIL);
211306f25ae9SGregory Neil Shapiro 		}
211406f25ae9SGregory Neil Shapiro 		if (chdir("/") < 0)
211506f25ae9SGregory Neil Shapiro 		{
211606f25ae9SGregory Neil Shapiro 			syserr("prog_open: cannot chdir(/)");
211706f25ae9SGregory Neil Shapiro 			exit(EX_TEMPFAIL);
211806f25ae9SGregory Neil Shapiro 		}
211906f25ae9SGregory Neil Shapiro 	}
2120c2aa98e2SPeter Wemm 
2121c2aa98e2SPeter Wemm 	/* run as default user */
2122c2aa98e2SPeter Wemm 	endpwent();
212340266059SGregory Neil Shapiro 	sm_mbdb_terminate();
21244e4196cbSGregory Neil Shapiro #if _FFR_MEMSTAT
21254e4196cbSGregory Neil Shapiro 	(void) sm_memstat_close();
21264e4196cbSGregory Neil Shapiro #endif /* _FFR_MEMSTAT */
2127c2aa98e2SPeter Wemm 	if (setgid(DefGid) < 0 && geteuid() == 0)
212806f25ae9SGregory Neil Shapiro 	{
2129c2aa98e2SPeter Wemm 		syserr("prog_open: setgid(%ld) failed", (long) DefGid);
213006f25ae9SGregory Neil Shapiro 		exit(EX_TEMPFAIL);
213106f25ae9SGregory Neil Shapiro 	}
2132c2aa98e2SPeter Wemm 	if (setuid(DefUid) < 0 && geteuid() == 0)
213306f25ae9SGregory Neil Shapiro 	{
2134c2aa98e2SPeter Wemm 		syserr("prog_open: setuid(%ld) failed", (long) DefUid);
213506f25ae9SGregory Neil Shapiro 		exit(EX_TEMPFAIL);
213606f25ae9SGregory Neil Shapiro 	}
2137c2aa98e2SPeter Wemm 
2138c2aa98e2SPeter Wemm 	/* run in some directory */
2139c2aa98e2SPeter Wemm 	if (ProgMailer != NULL)
2140c2aa98e2SPeter Wemm 		p = ProgMailer->m_execdir;
2141c2aa98e2SPeter Wemm 	else
2142c2aa98e2SPeter Wemm 		p = NULL;
2143c2aa98e2SPeter Wemm 	for (; p != NULL; p = q)
2144c2aa98e2SPeter Wemm 	{
2145c2aa98e2SPeter Wemm 		q = strchr(p, ':');
2146c2aa98e2SPeter Wemm 		if (q != NULL)
2147c2aa98e2SPeter Wemm 			*q = '\0';
2148d0cef73dSGregory Neil Shapiro 		expand(p, buf, sizeof(buf), e);
2149c2aa98e2SPeter Wemm 		if (q != NULL)
2150c2aa98e2SPeter Wemm 			*q++ = ':';
2151c2aa98e2SPeter Wemm 		if (buf[0] != '\0' && chdir(buf) >= 0)
2152c2aa98e2SPeter Wemm 			break;
2153c2aa98e2SPeter Wemm 	}
2154c2aa98e2SPeter Wemm 	if (p == NULL)
2155c2aa98e2SPeter Wemm 	{
2156c2aa98e2SPeter Wemm 		/* backup directories */
2157c2aa98e2SPeter Wemm 		if (chdir("/tmp") < 0)
2158c2aa98e2SPeter Wemm 			(void) chdir("/");
2159c2aa98e2SPeter Wemm 	}
2160c2aa98e2SPeter Wemm 
216140266059SGregory Neil Shapiro 	/* Check safety of program to be run */
216240266059SGregory Neil Shapiro 	sff = SFF_ROOTOK|SFF_EXECOK;
216340266059SGregory Neil Shapiro 	if (!bitnset(DBS_RUNWRITABLEPROGRAM, DontBlameSendmail))
216440266059SGregory Neil Shapiro 		sff |= SFF_NOGWFILES|SFF_NOWWFILES;
216540266059SGregory Neil Shapiro 	if (bitnset(DBS_RUNPROGRAMINUNSAFEDIRPATH, DontBlameSendmail))
216640266059SGregory Neil Shapiro 		sff |= SFF_NOPATHCHECK;
216740266059SGregory Neil Shapiro 	else
216840266059SGregory Neil Shapiro 		sff |= SFF_SAFEDIRPATH;
216940266059SGregory Neil Shapiro 	ret = safefile(argv[0], DefUid, DefGid, DefUser, sff, 0, NULL);
217040266059SGregory Neil Shapiro 	if (ret != 0)
217140266059SGregory Neil Shapiro 		sm_syslog(LOG_INFO, e->e_id,
217240266059SGregory Neil Shapiro 			  "Warning: prog_open: program %s unsafe: %s",
217340266059SGregory Neil Shapiro 			  argv[0], sm_errstring(ret));
217440266059SGregory Neil Shapiro 
2175c2aa98e2SPeter Wemm 	/* arrange for all the files to be closed */
2176e92d3f3fSGregory Neil Shapiro 	sm_close_on_exec(STDERR_FILENO + 1, DtableSize);
2177c2aa98e2SPeter Wemm 
2178c2aa98e2SPeter Wemm 	/* now exec the process */
217906f25ae9SGregory Neil Shapiro 	(void) execve(argv[0], (ARGV_T) argv, (ARGV_T) UserEnviron);
2180c2aa98e2SPeter Wemm 
2181c2aa98e2SPeter Wemm 	/* woops!  failed */
218206f25ae9SGregory Neil Shapiro 	save_errno = errno;
2183c2aa98e2SPeter Wemm 	syserr("%s: cannot exec", argv[0]);
218406f25ae9SGregory Neil Shapiro 	if (transienterror(save_errno))
2185c2aa98e2SPeter Wemm 		_exit(EX_OSERR);
2186c2aa98e2SPeter Wemm 	_exit(EX_CONFIG);
2187c2aa98e2SPeter Wemm 	return -1;	/* avoid compiler warning on IRIX */
2188c2aa98e2SPeter Wemm }
2189d0cef73dSGregory Neil Shapiro 
219040266059SGregory Neil Shapiro /*
2191c2aa98e2SPeter Wemm **  GET_COLUMN -- look up a Column in a line buffer
2192c2aa98e2SPeter Wemm **
2193c2aa98e2SPeter Wemm **	Parameters:
2194c2aa98e2SPeter Wemm **		line -- the raw text line to search.
2195c2aa98e2SPeter Wemm **		col -- the column number to fetch.
2196c2aa98e2SPeter Wemm **		delim -- the delimiter between columns.  If null,
2197c2aa98e2SPeter Wemm **			use white space.
2198c2aa98e2SPeter Wemm **		buf -- the output buffer.
2199c2aa98e2SPeter Wemm **		buflen -- the length of buf.
2200c2aa98e2SPeter Wemm **
2201c2aa98e2SPeter Wemm **	Returns:
2202c2aa98e2SPeter Wemm **		buf if successful.
2203c2aa98e2SPeter Wemm **		NULL otherwise.
2204c2aa98e2SPeter Wemm */
2205c2aa98e2SPeter Wemm 
2206c2aa98e2SPeter Wemm char *
2207c2aa98e2SPeter Wemm get_column(line, col, delim, buf, buflen)
2208c2aa98e2SPeter Wemm 	char line[];
2209c2aa98e2SPeter Wemm 	int col;
221006f25ae9SGregory Neil Shapiro 	int delim;
2211c2aa98e2SPeter Wemm 	char buf[];
2212c2aa98e2SPeter Wemm 	int buflen;
2213c2aa98e2SPeter Wemm {
2214c2aa98e2SPeter Wemm 	char *p;
2215c2aa98e2SPeter Wemm 	char *begin, *end;
2216c2aa98e2SPeter Wemm 	int i;
2217c2aa98e2SPeter Wemm 	char delimbuf[4];
2218c2aa98e2SPeter Wemm 
221906f25ae9SGregory Neil Shapiro 	if ((char) delim == '\0')
2220d0cef73dSGregory Neil Shapiro 		(void) sm_strlcpy(delimbuf, "\n\t ", sizeof(delimbuf));
2221c2aa98e2SPeter Wemm 	else
2222c2aa98e2SPeter Wemm 	{
222306f25ae9SGregory Neil Shapiro 		delimbuf[0] = (char) delim;
2224c2aa98e2SPeter Wemm 		delimbuf[1] = '\0';
2225c2aa98e2SPeter Wemm 	}
2226c2aa98e2SPeter Wemm 
2227c2aa98e2SPeter Wemm 	p = line;
2228c2aa98e2SPeter Wemm 	if (*p == '\0')
2229c2aa98e2SPeter Wemm 		return NULL;			/* line empty */
223006f25ae9SGregory Neil Shapiro 	if (*p == (char) delim && col == 0)
2231c2aa98e2SPeter Wemm 		return NULL;			/* first column empty */
2232c2aa98e2SPeter Wemm 
2233c2aa98e2SPeter Wemm 	begin = line;
2234c2aa98e2SPeter Wemm 
223506f25ae9SGregory Neil Shapiro 	if (col == 0 && (char) delim == '\0')
2236c2aa98e2SPeter Wemm 	{
2237c2aa98e2SPeter Wemm 		while (*begin != '\0' && isascii(*begin) && isspace(*begin))
2238c2aa98e2SPeter Wemm 			begin++;
2239c2aa98e2SPeter Wemm 	}
2240c2aa98e2SPeter Wemm 
2241c2aa98e2SPeter Wemm 	for (i = 0; i < col; i++)
2242c2aa98e2SPeter Wemm 	{
2243c2aa98e2SPeter Wemm 		if ((begin = strpbrk(begin, delimbuf)) == NULL)
2244c2aa98e2SPeter Wemm 			return NULL;		/* no such column */
2245c2aa98e2SPeter Wemm 		begin++;
224606f25ae9SGregory Neil Shapiro 		if ((char) delim == '\0')
2247c2aa98e2SPeter Wemm 		{
2248c2aa98e2SPeter Wemm 			while (*begin != '\0' && isascii(*begin) && isspace(*begin))
2249c2aa98e2SPeter Wemm 				begin++;
2250c2aa98e2SPeter Wemm 		}
2251c2aa98e2SPeter Wemm 	}
2252c2aa98e2SPeter Wemm 
2253c2aa98e2SPeter Wemm 	end = strpbrk(begin, delimbuf);
2254c2aa98e2SPeter Wemm 	if (end == NULL)
2255c2aa98e2SPeter Wemm 		i = strlen(begin);
2256c2aa98e2SPeter Wemm 	else
2257c2aa98e2SPeter Wemm 		i = end - begin;
2258c2aa98e2SPeter Wemm 	if (i >= buflen)
2259c2aa98e2SPeter Wemm 		i = buflen - 1;
226040266059SGregory Neil Shapiro 	(void) sm_strlcpy(buf, begin, i + 1);
2261c2aa98e2SPeter Wemm 	return buf;
2262c2aa98e2SPeter Wemm }
2263d0cef73dSGregory Neil Shapiro 
226440266059SGregory Neil Shapiro /*
2265c2aa98e2SPeter Wemm **  CLEANSTRCPY -- copy string keeping out bogus characters
2266c2aa98e2SPeter Wemm **
2267c2aa98e2SPeter Wemm **	Parameters:
2268c2aa98e2SPeter Wemm **		t -- "to" string.
2269c2aa98e2SPeter Wemm **		f -- "from" string.
2270c2aa98e2SPeter Wemm **		l -- length of space available in "to" string.
2271c2aa98e2SPeter Wemm **
2272c2aa98e2SPeter Wemm **	Returns:
2273c2aa98e2SPeter Wemm **		none.
2274c2aa98e2SPeter Wemm */
2275c2aa98e2SPeter Wemm 
2276c2aa98e2SPeter Wemm void
2277c2aa98e2SPeter Wemm cleanstrcpy(t, f, l)
2278c2aa98e2SPeter Wemm 	register char *t;
2279c2aa98e2SPeter Wemm 	register char *f;
2280c2aa98e2SPeter Wemm 	int l;
2281c2aa98e2SPeter Wemm {
2282c2aa98e2SPeter Wemm 	/* check for newlines and log if necessary */
228340266059SGregory Neil Shapiro 	(void) denlstring(f, true, true);
2284c2aa98e2SPeter Wemm 
228506f25ae9SGregory Neil Shapiro 	if (l <= 0)
228606f25ae9SGregory Neil Shapiro 		syserr("!cleanstrcpy: length == 0");
228706f25ae9SGregory Neil Shapiro 
2288c2aa98e2SPeter Wemm 	l--;
2289c2aa98e2SPeter Wemm 	while (l > 0 && *f != '\0')
2290c2aa98e2SPeter Wemm 	{
2291c2aa98e2SPeter Wemm 		if (isascii(*f) &&
2292c2aa98e2SPeter Wemm 		    (isalnum(*f) || strchr("!#$%&'*+-./^_`{|}~", *f) != NULL))
2293c2aa98e2SPeter Wemm 		{
2294c2aa98e2SPeter Wemm 			l--;
2295c2aa98e2SPeter Wemm 			*t++ = *f;
2296c2aa98e2SPeter Wemm 		}
2297c2aa98e2SPeter Wemm 		f++;
2298c2aa98e2SPeter Wemm 	}
2299c2aa98e2SPeter Wemm 	*t = '\0';
2300c2aa98e2SPeter Wemm }
2301d0cef73dSGregory Neil Shapiro 
230240266059SGregory Neil Shapiro /*
2303c2aa98e2SPeter Wemm **  DENLSTRING -- convert newlines in a string to spaces
2304c2aa98e2SPeter Wemm **
2305c2aa98e2SPeter Wemm **	Parameters:
2306c2aa98e2SPeter Wemm **		s -- the input string
2307c2aa98e2SPeter Wemm **		strict -- if set, don't permit continuation lines.
2308c2aa98e2SPeter Wemm **		logattacks -- if set, log attempted attacks.
2309c2aa98e2SPeter Wemm **
2310c2aa98e2SPeter Wemm **	Returns:
2311c2aa98e2SPeter Wemm **		A pointer to a version of the string with newlines
2312c2aa98e2SPeter Wemm **		mapped to spaces.  This should be copied.
2313c2aa98e2SPeter Wemm */
2314c2aa98e2SPeter Wemm 
2315c2aa98e2SPeter Wemm char *
2316c2aa98e2SPeter Wemm denlstring(s, strict, logattacks)
2317c2aa98e2SPeter Wemm 	char *s;
2318c2aa98e2SPeter Wemm 	bool strict;
2319c2aa98e2SPeter Wemm 	bool logattacks;
2320c2aa98e2SPeter Wemm {
2321c2aa98e2SPeter Wemm 	register char *p;
2322c2aa98e2SPeter Wemm 	int l;
2323c2aa98e2SPeter Wemm 	static char *bp = NULL;
2324c2aa98e2SPeter Wemm 	static int bl = 0;
2325c2aa98e2SPeter Wemm 
2326c2aa98e2SPeter Wemm 	p = s;
2327c2aa98e2SPeter Wemm 	while ((p = strchr(p, '\n')) != NULL)
2328c2aa98e2SPeter Wemm 		if (strict || (*++p != ' ' && *p != '\t'))
2329c2aa98e2SPeter Wemm 			break;
2330c2aa98e2SPeter Wemm 	if (p == NULL)
2331c2aa98e2SPeter Wemm 		return s;
2332c2aa98e2SPeter Wemm 
2333c2aa98e2SPeter Wemm 	l = strlen(s) + 1;
2334c2aa98e2SPeter Wemm 	if (bl < l)
2335c2aa98e2SPeter Wemm 	{
2336c2aa98e2SPeter Wemm 		/* allocate more space */
233740266059SGregory Neil Shapiro 		char *nbp = sm_pmalloc_x(l);
233840266059SGregory Neil Shapiro 
2339c2aa98e2SPeter Wemm 		if (bp != NULL)
23408774250cSGregory Neil Shapiro 			sm_free(bp);
234140266059SGregory Neil Shapiro 		bp = nbp;
2342c2aa98e2SPeter Wemm 		bl = l;
2343c2aa98e2SPeter Wemm 	}
234440266059SGregory Neil Shapiro 	(void) sm_strlcpy(bp, s, l);
2345c2aa98e2SPeter Wemm 	for (p = bp; (p = strchr(p, '\n')) != NULL; )
2346c2aa98e2SPeter Wemm 		*p++ = ' ';
2347c2aa98e2SPeter Wemm 
2348c2aa98e2SPeter Wemm 	if (logattacks)
2349c2aa98e2SPeter Wemm 	{
2350d0cef73dSGregory Neil Shapiro 		sm_syslog(LOG_NOTICE, CurEnv ? CurEnv->e_id : NULL,
2351c2aa98e2SPeter Wemm 			  "POSSIBLE ATTACK from %.100s: newline in string \"%s\"",
2352c2aa98e2SPeter Wemm 			  RealHostName == NULL ? "[UNKNOWN]" : RealHostName,
2353c2aa98e2SPeter Wemm 			  shortenstring(bp, MAXSHORTSTR));
2354c2aa98e2SPeter Wemm 	}
2355c2aa98e2SPeter Wemm 
2356c2aa98e2SPeter Wemm 	return bp;
2357c2aa98e2SPeter Wemm }
2358739ac4d4SGregory Neil Shapiro 
2359739ac4d4SGregory Neil Shapiro /*
2360739ac4d4SGregory Neil Shapiro **  STRREPLNONPRT -- replace "unprintable" characters in a string with subst
2361739ac4d4SGregory Neil Shapiro **
2362739ac4d4SGregory Neil Shapiro **	Parameters:
2363739ac4d4SGregory Neil Shapiro **		s -- string to manipulate (in place)
2364739ac4d4SGregory Neil Shapiro **		subst -- character to use as replacement
2365739ac4d4SGregory Neil Shapiro **
2366739ac4d4SGregory Neil Shapiro **	Returns:
2367739ac4d4SGregory Neil Shapiro **		true iff string did not contain "unprintable" characters
2368739ac4d4SGregory Neil Shapiro */
2369739ac4d4SGregory Neil Shapiro 
2370739ac4d4SGregory Neil Shapiro bool
2371739ac4d4SGregory Neil Shapiro strreplnonprt(s, c)
2372739ac4d4SGregory Neil Shapiro 	char *s;
2373739ac4d4SGregory Neil Shapiro 	int c;
2374739ac4d4SGregory Neil Shapiro {
2375739ac4d4SGregory Neil Shapiro 	bool ok;
2376739ac4d4SGregory Neil Shapiro 
2377739ac4d4SGregory Neil Shapiro 	ok = true;
2378739ac4d4SGregory Neil Shapiro 	if (s == NULL)
2379739ac4d4SGregory Neil Shapiro 		return ok;
2380739ac4d4SGregory Neil Shapiro 	while (*s != '\0')
2381739ac4d4SGregory Neil Shapiro 	{
2382739ac4d4SGregory Neil Shapiro 		if (!(isascii(*s) && isprint(*s)))
2383739ac4d4SGregory Neil Shapiro 		{
2384739ac4d4SGregory Neil Shapiro 			*s = c;
2385739ac4d4SGregory Neil Shapiro 			ok = false;
2386739ac4d4SGregory Neil Shapiro 		}
2387739ac4d4SGregory Neil Shapiro 		++s;
2388739ac4d4SGregory Neil Shapiro 	}
2389739ac4d4SGregory Neil Shapiro 	return ok;
2390739ac4d4SGregory Neil Shapiro }
2391739ac4d4SGregory Neil Shapiro 
239240266059SGregory Neil Shapiro /*
2393c2aa98e2SPeter Wemm **  PATH_IS_DIR -- check to see if file exists and is a directory.
2394c2aa98e2SPeter Wemm **
2395c2aa98e2SPeter Wemm **	There are some additional checks for security violations in
2396c2aa98e2SPeter Wemm **	here.  This routine is intended to be used for the host status
2397c2aa98e2SPeter Wemm **	support.
2398c2aa98e2SPeter Wemm **
2399c2aa98e2SPeter Wemm **	Parameters:
2400c2aa98e2SPeter Wemm **		pathname -- pathname to check for directory-ness.
2401c2aa98e2SPeter Wemm **		createflag -- if set, create directory if needed.
2402c2aa98e2SPeter Wemm **
2403c2aa98e2SPeter Wemm **	Returns:
240440266059SGregory Neil Shapiro **		true -- if the indicated pathname is a directory
240540266059SGregory Neil Shapiro **		false -- otherwise
2406c2aa98e2SPeter Wemm */
2407c2aa98e2SPeter Wemm 
2408a7ec597cSGregory Neil Shapiro bool
2409c2aa98e2SPeter Wemm path_is_dir(pathname, createflag)
2410c2aa98e2SPeter Wemm 	char *pathname;
2411c2aa98e2SPeter Wemm 	bool createflag;
2412c2aa98e2SPeter Wemm {
2413c2aa98e2SPeter Wemm 	struct stat statbuf;
2414c2aa98e2SPeter Wemm 
2415c2aa98e2SPeter Wemm #if HASLSTAT
2416c2aa98e2SPeter Wemm 	if (lstat(pathname, &statbuf) < 0)
241706f25ae9SGregory Neil Shapiro #else /* HASLSTAT */
2418c2aa98e2SPeter Wemm 	if (stat(pathname, &statbuf) < 0)
241906f25ae9SGregory Neil Shapiro #endif /* HASLSTAT */
2420c2aa98e2SPeter Wemm 	{
2421c2aa98e2SPeter Wemm 		if (errno != ENOENT || !createflag)
242240266059SGregory Neil Shapiro 			return false;
2423c2aa98e2SPeter Wemm 		if (mkdir(pathname, 0755) < 0)
242440266059SGregory Neil Shapiro 			return false;
242540266059SGregory Neil Shapiro 		return true;
2426c2aa98e2SPeter Wemm 	}
2427c2aa98e2SPeter Wemm 	if (!S_ISDIR(statbuf.st_mode))
2428c2aa98e2SPeter Wemm 	{
2429c2aa98e2SPeter Wemm 		errno = ENOTDIR;
243040266059SGregory Neil Shapiro 		return false;
2431c2aa98e2SPeter Wemm 	}
2432c2aa98e2SPeter Wemm 
2433c2aa98e2SPeter Wemm 	/* security: don't allow writable directories */
2434c2aa98e2SPeter Wemm 	if (bitset(S_IWGRP|S_IWOTH, statbuf.st_mode))
2435c2aa98e2SPeter Wemm 	{
2436c2aa98e2SPeter Wemm 		errno = EACCES;
243740266059SGregory Neil Shapiro 		return false;
2438c2aa98e2SPeter Wemm 	}
243940266059SGregory Neil Shapiro 	return true;
2440c2aa98e2SPeter Wemm }
2441d0cef73dSGregory Neil Shapiro 
244240266059SGregory Neil Shapiro /*
2443c2aa98e2SPeter Wemm **  PROC_LIST_ADD -- add process id to list of our children
2444c2aa98e2SPeter Wemm **
2445c2aa98e2SPeter Wemm **	Parameters:
2446c2aa98e2SPeter Wemm **		pid -- pid to add to list.
244706f25ae9SGregory Neil Shapiro **		task -- task of pid.
244806f25ae9SGregory Neil Shapiro **		type -- type of process.
244940266059SGregory Neil Shapiro **		count -- number of processes.
245040266059SGregory Neil Shapiro **		other -- other information for this type.
2451c2aa98e2SPeter Wemm **
2452c2aa98e2SPeter Wemm **	Returns:
2453c2aa98e2SPeter Wemm **		none
245440266059SGregory Neil Shapiro **
245540266059SGregory Neil Shapiro **	Side Effects:
245640266059SGregory Neil Shapiro **		May increase CurChildren. May grow ProcList.
2457c2aa98e2SPeter Wemm */
2458c2aa98e2SPeter Wemm 
245940266059SGregory Neil Shapiro typedef struct procs	PROCS_T;
246040266059SGregory Neil Shapiro 
246140266059SGregory Neil Shapiro struct procs
246240266059SGregory Neil Shapiro {
246340266059SGregory Neil Shapiro 	pid_t		proc_pid;
246440266059SGregory Neil Shapiro 	char		*proc_task;
246540266059SGregory Neil Shapiro 	int		proc_type;
246640266059SGregory Neil Shapiro 	int		proc_count;
246740266059SGregory Neil Shapiro 	int		proc_other;
2468e92d3f3fSGregory Neil Shapiro 	SOCKADDR	proc_hostaddr;
246940266059SGregory Neil Shapiro };
247040266059SGregory Neil Shapiro 
247140266059SGregory Neil Shapiro static PROCS_T	*volatile ProcListVec = NULL;
2472c2aa98e2SPeter Wemm static int	ProcListSize = 0;
2473c2aa98e2SPeter Wemm 
2474c2aa98e2SPeter Wemm void
2475e92d3f3fSGregory Neil Shapiro proc_list_add(pid, task, type, count, other, hostaddr)
2476c2aa98e2SPeter Wemm 	pid_t pid;
2477065a643dSPeter Wemm 	char *task;
247806f25ae9SGregory Neil Shapiro 	int type;
247940266059SGregory Neil Shapiro 	int count;
248040266059SGregory Neil Shapiro 	int other;
2481e92d3f3fSGregory Neil Shapiro 	SOCKADDR *hostaddr;
2482c2aa98e2SPeter Wemm {
2483c2aa98e2SPeter Wemm 	int i;
2484c2aa98e2SPeter Wemm 
2485c2aa98e2SPeter Wemm 	for (i = 0; i < ProcListSize; i++)
2486c2aa98e2SPeter Wemm 	{
2487065a643dSPeter Wemm 		if (ProcListVec[i].proc_pid == NO_PID)
2488c2aa98e2SPeter Wemm 			break;
2489c2aa98e2SPeter Wemm 	}
2490c2aa98e2SPeter Wemm 	if (i >= ProcListSize)
2491c2aa98e2SPeter Wemm 	{
2492c2aa98e2SPeter Wemm 		/* probe the existing vector to avoid growing infinitely */
2493c2aa98e2SPeter Wemm 		proc_list_probe();
2494c2aa98e2SPeter Wemm 
2495c2aa98e2SPeter Wemm 		/* now scan again */
2496c2aa98e2SPeter Wemm 		for (i = 0; i < ProcListSize; i++)
2497c2aa98e2SPeter Wemm 		{
2498065a643dSPeter Wemm 			if (ProcListVec[i].proc_pid == NO_PID)
2499c2aa98e2SPeter Wemm 				break;
2500c2aa98e2SPeter Wemm 		}
2501c2aa98e2SPeter Wemm 	}
2502c2aa98e2SPeter Wemm 	if (i >= ProcListSize)
2503c2aa98e2SPeter Wemm 	{
2504c2aa98e2SPeter Wemm 		/* grow process list */
2505d0cef73dSGregory Neil Shapiro 		int chldwasblocked;
250640266059SGregory Neil Shapiro 		PROCS_T *npv;
2507c2aa98e2SPeter Wemm 
250840266059SGregory Neil Shapiro 		SM_ASSERT(ProcListSize < INT_MAX - PROC_LIST_SEG);
2509d0cef73dSGregory Neil Shapiro 		npv = (PROCS_T *) sm_pmalloc_x((sizeof(*npv)) *
251006f25ae9SGregory Neil Shapiro 					       (ProcListSize + PROC_LIST_SEG));
2511d0cef73dSGregory Neil Shapiro 
2512d0cef73dSGregory Neil Shapiro 		/* Block SIGCHLD so reapchild() doesn't mess with us */
2513d0cef73dSGregory Neil Shapiro 		chldwasblocked = sm_blocksignal(SIGCHLD);
2514c2aa98e2SPeter Wemm 		if (ProcListSize > 0)
2515c2aa98e2SPeter Wemm 		{
251606f25ae9SGregory Neil Shapiro 			memmove(npv, ProcListVec,
251740266059SGregory Neil Shapiro 				ProcListSize * sizeof(PROCS_T));
25188774250cSGregory Neil Shapiro 			sm_free(ProcListVec);
2519c2aa98e2SPeter Wemm 		}
252040266059SGregory Neil Shapiro 
252140266059SGregory Neil Shapiro 		/* XXX just use memset() to initialize this part? */
2522c2aa98e2SPeter Wemm 		for (i = ProcListSize; i < ProcListSize + PROC_LIST_SEG; i++)
2523065a643dSPeter Wemm 		{
2524065a643dSPeter Wemm 			npv[i].proc_pid = NO_PID;
2525065a643dSPeter Wemm 			npv[i].proc_task = NULL;
252606f25ae9SGregory Neil Shapiro 			npv[i].proc_type = PROC_NONE;
2527065a643dSPeter Wemm 		}
2528c2aa98e2SPeter Wemm 		i = ProcListSize;
2529c2aa98e2SPeter Wemm 		ProcListSize += PROC_LIST_SEG;
2530c2aa98e2SPeter Wemm 		ProcListVec = npv;
2531d0cef73dSGregory Neil Shapiro 		if (chldwasblocked == 0)
2532d0cef73dSGregory Neil Shapiro 			(void) sm_releasesignal(SIGCHLD);
2533c2aa98e2SPeter Wemm 	}
2534065a643dSPeter Wemm 	ProcListVec[i].proc_pid = pid;
253540266059SGregory Neil Shapiro 	PSTRSET(ProcListVec[i].proc_task, task);
253606f25ae9SGregory Neil Shapiro 	ProcListVec[i].proc_type = type;
253740266059SGregory Neil Shapiro 	ProcListVec[i].proc_count = count;
253840266059SGregory Neil Shapiro 	ProcListVec[i].proc_other = other;
2539e92d3f3fSGregory Neil Shapiro 	if (hostaddr != NULL)
2540e92d3f3fSGregory Neil Shapiro 		ProcListVec[i].proc_hostaddr = *hostaddr;
2541e92d3f3fSGregory Neil Shapiro 	else
2542e92d3f3fSGregory Neil Shapiro 		memset(&ProcListVec[i].proc_hostaddr, 0,
2543e92d3f3fSGregory Neil Shapiro 			sizeof(ProcListVec[i].proc_hostaddr));
2544065a643dSPeter Wemm 
2545065a643dSPeter Wemm 	/* if process adding itself, it's not a child */
254640266059SGregory Neil Shapiro 	if (pid != CurrentPid)
254740266059SGregory Neil Shapiro 	{
254840266059SGregory Neil Shapiro 		SM_ASSERT(CurChildren < INT_MAX);
2549c2aa98e2SPeter Wemm 		CurChildren++;
2550c2aa98e2SPeter Wemm 	}
255140266059SGregory Neil Shapiro }
2552d0cef73dSGregory Neil Shapiro 
255340266059SGregory Neil Shapiro /*
2554065a643dSPeter Wemm **  PROC_LIST_SET -- set pid task in process list
2555065a643dSPeter Wemm **
2556065a643dSPeter Wemm **	Parameters:
2557065a643dSPeter Wemm **		pid -- pid to set
2558065a643dSPeter Wemm **		task -- task of pid
2559065a643dSPeter Wemm **
2560065a643dSPeter Wemm **	Returns:
2561065a643dSPeter Wemm **		none.
2562065a643dSPeter Wemm */
2563065a643dSPeter Wemm 
2564065a643dSPeter Wemm void
2565065a643dSPeter Wemm proc_list_set(pid, task)
2566065a643dSPeter Wemm 	pid_t pid;
2567065a643dSPeter Wemm 	char *task;
2568065a643dSPeter Wemm {
2569065a643dSPeter Wemm 	int i;
2570065a643dSPeter Wemm 
2571065a643dSPeter Wemm 	for (i = 0; i < ProcListSize; i++)
2572065a643dSPeter Wemm 	{
2573065a643dSPeter Wemm 		if (ProcListVec[i].proc_pid == pid)
2574065a643dSPeter Wemm 		{
257540266059SGregory Neil Shapiro 			PSTRSET(ProcListVec[i].proc_task, task);
2576065a643dSPeter Wemm 			break;
2577065a643dSPeter Wemm 		}
2578065a643dSPeter Wemm 	}
2579065a643dSPeter Wemm }
2580d0cef73dSGregory Neil Shapiro 
258140266059SGregory Neil Shapiro /*
2582c2aa98e2SPeter Wemm **  PROC_LIST_DROP -- drop pid from process list
2583c2aa98e2SPeter Wemm **
2584c2aa98e2SPeter Wemm **	Parameters:
2585c2aa98e2SPeter Wemm **		pid -- pid to drop
258640266059SGregory Neil Shapiro **		st -- process status
258740266059SGregory Neil Shapiro **		other -- storage for proc_other (return).
2588c2aa98e2SPeter Wemm **
2589c2aa98e2SPeter Wemm **	Returns:
259040266059SGregory Neil Shapiro **		none.
259140266059SGregory Neil Shapiro **
259240266059SGregory Neil Shapiro **	Side Effects:
259340266059SGregory Neil Shapiro **		May decrease CurChildren, CurRunners, or
259440266059SGregory Neil Shapiro **		set RestartRequest or ShutdownRequest.
25958774250cSGregory Neil Shapiro **
25968774250cSGregory Neil Shapiro **	NOTE:	THIS CAN BE CALLED FROM A SIGNAL HANDLER.  DO NOT ADD
25978774250cSGregory Neil Shapiro **		ANYTHING TO THIS ROUTINE UNLESS YOU KNOW WHAT YOU ARE
25988774250cSGregory Neil Shapiro **		DOING.
2599c2aa98e2SPeter Wemm */
2600c2aa98e2SPeter Wemm 
260140266059SGregory Neil Shapiro void
260240266059SGregory Neil Shapiro proc_list_drop(pid, st, other)
2603c2aa98e2SPeter Wemm 	pid_t pid;
260440266059SGregory Neil Shapiro 	int st;
260540266059SGregory Neil Shapiro 	int *other;
2606c2aa98e2SPeter Wemm {
2607c2aa98e2SPeter Wemm 	int i;
260806f25ae9SGregory Neil Shapiro 	int type = PROC_NONE;
2609c2aa98e2SPeter Wemm 
2610c2aa98e2SPeter Wemm 	for (i = 0; i < ProcListSize; i++)
2611c2aa98e2SPeter Wemm 	{
2612065a643dSPeter Wemm 		if (ProcListVec[i].proc_pid == pid)
2613c2aa98e2SPeter Wemm 		{
2614065a643dSPeter Wemm 			ProcListVec[i].proc_pid = NO_PID;
261506f25ae9SGregory Neil Shapiro 			type = ProcListVec[i].proc_type;
261640266059SGregory Neil Shapiro 			if (other != NULL)
261740266059SGregory Neil Shapiro 				*other = ProcListVec[i].proc_other;
26184e4196cbSGregory Neil Shapiro 			if (CurChildren > 0)
26194e4196cbSGregory Neil Shapiro 				CurChildren--;
2620c2aa98e2SPeter Wemm 			break;
2621c2aa98e2SPeter Wemm 		}
2622c2aa98e2SPeter Wemm 	}
262306f25ae9SGregory Neil Shapiro 
262406f25ae9SGregory Neil Shapiro 
262540266059SGregory Neil Shapiro 	if (type == PROC_CONTROL && WIFEXITED(st))
262640266059SGregory Neil Shapiro 	{
262740266059SGregory Neil Shapiro 		/* if so, see if we need to restart or shutdown */
262840266059SGregory Neil Shapiro 		if (WEXITSTATUS(st) == EX_RESTART)
262940266059SGregory Neil Shapiro 			RestartRequest = "control socket";
263040266059SGregory Neil Shapiro 		else if (WEXITSTATUS(st) == EX_SHUTDOWN)
263140266059SGregory Neil Shapiro 			ShutdownRequest = "control socket";
2632c2aa98e2SPeter Wemm 	}
263340266059SGregory Neil Shapiro 	else if (type == PROC_QUEUE_CHILD && !WIFSTOPPED(st) &&
263440266059SGregory Neil Shapiro 		 ProcListVec[i].proc_other > -1)
263540266059SGregory Neil Shapiro 	{
263640266059SGregory Neil Shapiro 		/* restart this persistent runner */
263740266059SGregory Neil Shapiro 		mark_work_group_restart(ProcListVec[i].proc_other, st);
263840266059SGregory Neil Shapiro 	}
263940266059SGregory Neil Shapiro 	else if (type == PROC_QUEUE)
2640ba00ec3dSGregory Neil Shapiro 	{
264140266059SGregory Neil Shapiro 		CurRunners -= ProcListVec[i].proc_count;
2642ba00ec3dSGregory Neil Shapiro 
2643ba00ec3dSGregory Neil Shapiro 		/* CHK_CUR_RUNNERS() can't be used here: uses syslog() */
2644ba00ec3dSGregory Neil Shapiro 		if (CurRunners < 0)
2645ba00ec3dSGregory Neil Shapiro 			CurRunners = 0;
2646ba00ec3dSGregory Neil Shapiro 	}
264740266059SGregory Neil Shapiro }
2648d0cef73dSGregory Neil Shapiro 
264940266059SGregory Neil Shapiro /*
2650c2aa98e2SPeter Wemm **  PROC_LIST_CLEAR -- clear the process list
2651c2aa98e2SPeter Wemm **
2652c2aa98e2SPeter Wemm **	Parameters:
2653c2aa98e2SPeter Wemm **		none.
2654c2aa98e2SPeter Wemm **
2655c2aa98e2SPeter Wemm **	Returns:
2656c2aa98e2SPeter Wemm **		none.
265740266059SGregory Neil Shapiro **
265840266059SGregory Neil Shapiro **	Side Effects:
265940266059SGregory Neil Shapiro **		Sets CurChildren to zero.
2660c2aa98e2SPeter Wemm */
2661c2aa98e2SPeter Wemm 
2662c2aa98e2SPeter Wemm void
2663c2aa98e2SPeter Wemm proc_list_clear()
2664c2aa98e2SPeter Wemm {
2665c2aa98e2SPeter Wemm 	int i;
2666c2aa98e2SPeter Wemm 
2667065a643dSPeter Wemm 	/* start from 1 since 0 is the daemon itself */
2668065a643dSPeter Wemm 	for (i = 1; i < ProcListSize; i++)
2669065a643dSPeter Wemm 		ProcListVec[i].proc_pid = NO_PID;
2670c2aa98e2SPeter Wemm 	CurChildren = 0;
2671c2aa98e2SPeter Wemm }
2672d0cef73dSGregory Neil Shapiro 
267340266059SGregory Neil Shapiro /*
2674c2aa98e2SPeter Wemm **  PROC_LIST_PROBE -- probe processes in the list to see if they still exist
2675c2aa98e2SPeter Wemm **
2676c2aa98e2SPeter Wemm **	Parameters:
2677c2aa98e2SPeter Wemm **		none
2678c2aa98e2SPeter Wemm **
2679c2aa98e2SPeter Wemm **	Returns:
2680c2aa98e2SPeter Wemm **		none
268140266059SGregory Neil Shapiro **
268240266059SGregory Neil Shapiro **	Side Effects:
268340266059SGregory Neil Shapiro **		May decrease CurChildren.
2684c2aa98e2SPeter Wemm */
2685c2aa98e2SPeter Wemm 
2686c2aa98e2SPeter Wemm void
2687c2aa98e2SPeter Wemm proc_list_probe()
2688c2aa98e2SPeter Wemm {
26894e4196cbSGregory Neil Shapiro 	int i, children;
26904e4196cbSGregory Neil Shapiro 	int chldwasblocked;
26914e4196cbSGregory Neil Shapiro 	pid_t pid;
26924e4196cbSGregory Neil Shapiro 
26934e4196cbSGregory Neil Shapiro 	children = 0;
26944e4196cbSGregory Neil Shapiro 	chldwasblocked = sm_blocksignal(SIGCHLD);
2695c2aa98e2SPeter Wemm 
2696065a643dSPeter Wemm 	/* start from 1 since 0 is the daemon itself */
2697065a643dSPeter Wemm 	for (i = 1; i < ProcListSize; i++)
2698c2aa98e2SPeter Wemm 	{
26994e4196cbSGregory Neil Shapiro 		pid = ProcListVec[i].proc_pid;
27004e4196cbSGregory Neil Shapiro 		if (pid == NO_PID || pid == CurrentPid)
2701c2aa98e2SPeter Wemm 			continue;
27024e4196cbSGregory Neil Shapiro 		if (kill(pid, 0) < 0)
2703c2aa98e2SPeter Wemm 		{
2704c2aa98e2SPeter Wemm 			if (LogLevel > 3)
2705c2aa98e2SPeter Wemm 				sm_syslog(LOG_DEBUG, CurEnv->e_id,
2706c2aa98e2SPeter Wemm 					  "proc_list_probe: lost pid %d",
2707065a643dSPeter Wemm 					  (int) ProcListVec[i].proc_pid);
2708065a643dSPeter Wemm 			ProcListVec[i].proc_pid = NO_PID;
270940266059SGregory Neil Shapiro 			SM_FREE_CLR(ProcListVec[i].proc_task);
2710ba00ec3dSGregory Neil Shapiro 
2711ba00ec3dSGregory Neil Shapiro 			if (ProcListVec[i].proc_type == PROC_QUEUE)
2712ba00ec3dSGregory Neil Shapiro 			{
2713ba00ec3dSGregory Neil Shapiro 				CurRunners -= ProcListVec[i].proc_count;
2714ba00ec3dSGregory Neil Shapiro 				CHK_CUR_RUNNERS("proc_list_probe", i,
2715ba00ec3dSGregory Neil Shapiro 						ProcListVec[i].proc_count);
2716ba00ec3dSGregory Neil Shapiro 			}
2717ba00ec3dSGregory Neil Shapiro 
2718c2aa98e2SPeter Wemm 			CurChildren--;
2719c2aa98e2SPeter Wemm 		}
27204e4196cbSGregory Neil Shapiro 		else
27214e4196cbSGregory Neil Shapiro 		{
27224e4196cbSGregory Neil Shapiro 			++children;
27234e4196cbSGregory Neil Shapiro 		}
2724c2aa98e2SPeter Wemm 	}
2725c2aa98e2SPeter Wemm 	if (CurChildren < 0)
2726c2aa98e2SPeter Wemm 		CurChildren = 0;
27274e4196cbSGregory Neil Shapiro 	if (chldwasblocked == 0)
27284e4196cbSGregory Neil Shapiro 		(void) sm_releasesignal(SIGCHLD);
2729af9557fdSGregory Neil Shapiro 	if (LogLevel > 10 && children != CurChildren && CurrentPid == DaemonPid)
27304e4196cbSGregory Neil Shapiro 	{
27314e4196cbSGregory Neil Shapiro 		sm_syslog(LOG_ERR, NOQID,
27324e4196cbSGregory Neil Shapiro 			  "proc_list_probe: found %d children, expected %d",
27334e4196cbSGregory Neil Shapiro 			  children, CurChildren);
27344e4196cbSGregory Neil Shapiro 	}
2735c2aa98e2SPeter Wemm }
273640266059SGregory Neil Shapiro 
273740266059SGregory Neil Shapiro /*
2738065a643dSPeter Wemm **  PROC_LIST_DISPLAY -- display the process list
2739065a643dSPeter Wemm **
2740065a643dSPeter Wemm **	Parameters:
2741065a643dSPeter Wemm **		out -- output file pointer
274240266059SGregory Neil Shapiro **		prefix -- string to output in front of each line.
2743065a643dSPeter Wemm **
2744065a643dSPeter Wemm **	Returns:
2745065a643dSPeter Wemm **		none.
2746065a643dSPeter Wemm */
2747065a643dSPeter Wemm 
2748065a643dSPeter Wemm void
274940266059SGregory Neil Shapiro proc_list_display(out, prefix)
275040266059SGregory Neil Shapiro 	SM_FILE_T *out;
275140266059SGregory Neil Shapiro 	char *prefix;
2752065a643dSPeter Wemm {
2753065a643dSPeter Wemm 	int i;
2754065a643dSPeter Wemm 
2755065a643dSPeter Wemm 	for (i = 0; i < ProcListSize; i++)
2756065a643dSPeter Wemm 	{
2757065a643dSPeter Wemm 		if (ProcListVec[i].proc_pid == NO_PID)
2758065a643dSPeter Wemm 			continue;
2759065a643dSPeter Wemm 
276040266059SGregory Neil Shapiro 		(void) sm_io_fprintf(out, SM_TIME_DEFAULT, "%s%d %s%s\n",
276140266059SGregory Neil Shapiro 				     prefix,
276240266059SGregory Neil Shapiro 				     (int) ProcListVec[i].proc_pid,
2763065a643dSPeter Wemm 				     ProcListVec[i].proc_task != NULL ?
2764065a643dSPeter Wemm 				     ProcListVec[i].proc_task : "(unknown)",
2765065a643dSPeter Wemm 				     (OpMode == MD_SMTP ||
2766065a643dSPeter Wemm 				      OpMode == MD_DAEMON ||
2767065a643dSPeter Wemm 				      OpMode == MD_ARPAFTP) ? "\r" : "");
2768065a643dSPeter Wemm 	}
2769065a643dSPeter Wemm }
277040266059SGregory Neil Shapiro 
277140266059SGregory Neil Shapiro /*
277240266059SGregory Neil Shapiro **  PROC_LIST_SIGNAL -- send a signal to a type of process in the list
277313058a91SGregory Neil Shapiro **
277413058a91SGregory Neil Shapiro **	Parameters:
277540266059SGregory Neil Shapiro **		type -- type of process to signal
277640266059SGregory Neil Shapiro **		signal -- the type of signal to send
277713058a91SGregory Neil Shapiro **
277840266059SGregory Neil Shapiro **	Results:
277940266059SGregory Neil Shapiro **		none.
2780c2aa98e2SPeter Wemm **
278140266059SGregory Neil Shapiro **	NOTE:	THIS CAN BE CALLED FROM A SIGNAL HANDLER.  DO NOT ADD
278240266059SGregory Neil Shapiro **		ANYTHING TO THIS ROUTINE UNLESS YOU KNOW WHAT YOU ARE
278340266059SGregory Neil Shapiro **		DOING.
2784c2aa98e2SPeter Wemm */
2785c2aa98e2SPeter Wemm 
278640266059SGregory Neil Shapiro void
278740266059SGregory Neil Shapiro proc_list_signal(type, signal)
278840266059SGregory Neil Shapiro 	int type;
278940266059SGregory Neil Shapiro 	int signal;
2790c2aa98e2SPeter Wemm {
279140266059SGregory Neil Shapiro 	int chldwasblocked;
279240266059SGregory Neil Shapiro 	int alrmwasblocked;
279340266059SGregory Neil Shapiro 	int i;
279440266059SGregory Neil Shapiro 	pid_t mypid = getpid();
2795c2aa98e2SPeter Wemm 
279640266059SGregory Neil Shapiro 	/* block these signals so that we may signal cleanly */
279740266059SGregory Neil Shapiro 	chldwasblocked = sm_blocksignal(SIGCHLD);
279840266059SGregory Neil Shapiro 	alrmwasblocked = sm_blocksignal(SIGALRM);
279940266059SGregory Neil Shapiro 
280040266059SGregory Neil Shapiro 	/* Find all processes of type and send signal */
280140266059SGregory Neil Shapiro 	for (i = 0; i < ProcListSize; i++)
280240266059SGregory Neil Shapiro 	{
280340266059SGregory Neil Shapiro 		if (ProcListVec[i].proc_pid == NO_PID ||
280440266059SGregory Neil Shapiro 		    ProcListVec[i].proc_pid == mypid)
280540266059SGregory Neil Shapiro 			continue;
280640266059SGregory Neil Shapiro 		if (ProcListVec[i].proc_type != type)
280740266059SGregory Neil Shapiro 			continue;
280840266059SGregory Neil Shapiro 		(void) kill(ProcListVec[i].proc_pid, signal);
2809c2aa98e2SPeter Wemm 	}
2810c2aa98e2SPeter Wemm 
281140266059SGregory Neil Shapiro 	/* restore the signals */
281240266059SGregory Neil Shapiro 	if (alrmwasblocked == 0)
281340266059SGregory Neil Shapiro 		(void) sm_releasesignal(SIGALRM);
281440266059SGregory Neil Shapiro 	if (chldwasblocked == 0)
281540266059SGregory Neil Shapiro 		(void) sm_releasesignal(SIGCHLD);
2816c2aa98e2SPeter Wemm }
2817e92d3f3fSGregory Neil Shapiro 
2818e92d3f3fSGregory Neil Shapiro /*
2819e92d3f3fSGregory Neil Shapiro **  COUNT_OPEN_CONNECTIONS
2820e92d3f3fSGregory Neil Shapiro **
2821e92d3f3fSGregory Neil Shapiro **	Parameters:
2822e92d3f3fSGregory Neil Shapiro **		hostaddr - ClientAddress
2823e92d3f3fSGregory Neil Shapiro **
2824e92d3f3fSGregory Neil Shapiro **	Returns:
2825e92d3f3fSGregory Neil Shapiro **		the number of open connections for this client
2826e92d3f3fSGregory Neil Shapiro **
2827e92d3f3fSGregory Neil Shapiro */
2828e92d3f3fSGregory Neil Shapiro 
2829e92d3f3fSGregory Neil Shapiro int
2830e92d3f3fSGregory Neil Shapiro count_open_connections(hostaddr)
2831e92d3f3fSGregory Neil Shapiro 	SOCKADDR *hostaddr;
2832e92d3f3fSGregory Neil Shapiro {
2833e92d3f3fSGregory Neil Shapiro 	int i, n;
2834e92d3f3fSGregory Neil Shapiro 
2835e92d3f3fSGregory Neil Shapiro 	if (hostaddr == NULL)
2836e92d3f3fSGregory Neil Shapiro 		return 0;
2837ffb83623SGregory Neil Shapiro 
2838ffb83623SGregory Neil Shapiro 	/*
2839e3793f76SGregory Neil Shapiro 	**  This code gets called before proc_list_add() gets called,
2840e3793f76SGregory Neil Shapiro 	**  so we (the daemon child for this connection) have not yet
2841e3793f76SGregory Neil Shapiro 	**  counted ourselves.  Hence initialize the counter to 1
2842e3793f76SGregory Neil Shapiro 	**  instead of 0 to compensate.
2843ffb83623SGregory Neil Shapiro 	*/
2844ffb83623SGregory Neil Shapiro 
2845ffb83623SGregory Neil Shapiro 	n = 1;
2846e92d3f3fSGregory Neil Shapiro 	for (i = 0; i < ProcListSize; i++)
2847e92d3f3fSGregory Neil Shapiro 	{
2848e92d3f3fSGregory Neil Shapiro 		if (ProcListVec[i].proc_pid == NO_PID)
2849e92d3f3fSGregory Neil Shapiro 			continue;
2850e92d3f3fSGregory Neil Shapiro 		if (hostaddr->sa.sa_family !=
2851e92d3f3fSGregory Neil Shapiro 		    ProcListVec[i].proc_hostaddr.sa.sa_family)
2852e92d3f3fSGregory Neil Shapiro 			continue;
2853e92d3f3fSGregory Neil Shapiro #if NETINET
2854e92d3f3fSGregory Neil Shapiro 		if (hostaddr->sa.sa_family == AF_INET &&
2855e92d3f3fSGregory Neil Shapiro 		    (hostaddr->sin.sin_addr.s_addr ==
2856e92d3f3fSGregory Neil Shapiro 		     ProcListVec[i].proc_hostaddr.sin.sin_addr.s_addr))
2857e92d3f3fSGregory Neil Shapiro 			n++;
2858e92d3f3fSGregory Neil Shapiro #endif /* NETINET */
2859e92d3f3fSGregory Neil Shapiro #if NETINET6
2860e92d3f3fSGregory Neil Shapiro 		if (hostaddr->sa.sa_family == AF_INET6 &&
2861e92d3f3fSGregory Neil Shapiro 		    IN6_ARE_ADDR_EQUAL(&(hostaddr->sin6.sin6_addr),
2862e92d3f3fSGregory Neil Shapiro 				       &(ProcListVec[i].proc_hostaddr.sin6.sin6_addr)))
2863e92d3f3fSGregory Neil Shapiro 			n++;
2864e92d3f3fSGregory Neil Shapiro #endif /* NETINET6 */
2865e92d3f3fSGregory Neil Shapiro 	}
2866e92d3f3fSGregory Neil Shapiro 	return n;
2867e92d3f3fSGregory Neil Shapiro }
2868ba00ec3dSGregory Neil Shapiro 
2869