1 /*
2  * CDDL HEADER START
3  *
4  * The contents of this file are subject to the terms of the
5  * Common Development and Distribution License, Version 1.0 only
6  * (the "License").  You may not use this file except in compliance
7  * with the License.
8  *
9  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10  * or http://www.opensolaris.org/os/licensing.
11  * See the License for the specific language governing permissions
12  * and limitations under the License.
13  *
14  * When distributing Covered Code, include this CDDL HEADER in each
15  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16  * If applicable, add the following below this CDDL HEADER, with the
17  * fields enclosed by brackets "[]" replaced with your own identifying
18  * information: Portions Copyright [yyyy] [name of copyright owner]
19  *
20  * CDDL HEADER END
21  */
22 /*
23  * Copyright 2004 Sun Microsystems, Inc.  All rights reserved.
24  * Use is subject to license terms.
25  */
26 
27 #pragma ident	"%Z%%M%	%I%	%E% SMI"
28 
29 #include <stdlib.h>
30 #include <strings.h>
31 #include <libintl.h>
32 
33 #include "inetd_impl.h"
34 
35 extern char **environ;
36 
37 static int
valid_env_var(const char * var,const char * instance,const char * method)38 valid_env_var(const char *var, const char *instance, const char *method)
39 {
40 	char *cp = strchr(var, '=');
41 
42 	if (cp == NULL || cp == var) {
43 		if (method == NULL)
44 			return (0);
45 		error_msg(gettext("Invalid environment variable \"%s\" for "
46 		    "method %s of instance %s.\n"), var, method, instance);
47 		return (0);
48 	} else if (strncmp(var, "SMF_", 4) == 0) {
49 		if (method == NULL)
50 			return (0);
51 		error_msg(gettext("Invalid environment variable \"%s\" for "
52 		    "method %s of instance %s; \"SMF_\" prefix is reserved.\n"),
53 		    var, method, instance);
54 		return (0);
55 	}
56 
57 	return (1);
58 }
59 
60 static char **
find_dup(const char * var,char ** env,const char * instance,const char * method)61 find_dup(const char *var, char **env, const char *instance, const char *method)
62 {
63 	char **p;
64 	char *tmp;
65 
66 	for (p = env; *p != NULL; p++) {
67 		tmp = strchr(*p, '=');
68 		assert(tmp != NULL);
69 		tmp++;
70 		if (strncmp(*p, var, tmp - *p) == 0)
71 			break;
72 	}
73 
74 	if (*p == NULL)
75 		return (NULL);
76 
77 	error_msg(gettext("Ignoring duplicate environment variable \"%s\" "
78 	    "for method %s of instance %s.\n"), *p, method, instance);
79 	return (p);
80 }
81 
82 /*
83  * Create an environment which is appropriate for spawning an SMF aware
84  * process.
85  *
86  * In order to preserve the correctness of the new environment, various
87  * checks are performed:
88  *
89  * - All SMF_ entries are ignored.  All SMF_ entries should be provided
90  *   by this function.
91  * - Duplicates in the entry are eliminated.
92  * - Malformed entries are eliminated.
93  *
94  * Detected errors are logged but not fatal, since a single bad entry
95  * should not be enough to prevent an SMF_ functional environment from
96  * being created.
97  */
98 char **
set_smf_env(struct method_context * mthd_ctxt,instance_t * instance,const char * method)99 set_smf_env(struct method_context *mthd_ctxt, instance_t *instance,
100     const char *method)
101 {
102 	char **nenv;
103 	char **p, **np;
104 	size_t nenv_size;
105 
106 	/*
107 	 * Max. of env, three SMF_ variables, and terminating NULL.
108 	 */
109 	nenv_size = mthd_ctxt->env_sz + 3 + 1;
110 
111 	if (instance->config->basic->inherit_env) {
112 		for (p = environ; *p != NULL; p++)
113 			nenv_size++;
114 	}
115 
116 	nenv = malloc(sizeof (char *) * nenv_size);
117 	if (nenv == NULL)
118 		return (NULL);
119 	(void) memset(nenv, 0, sizeof (char *) * nenv_size);
120 
121 	np = nenv;
122 
123 	*np = uu_msprintf("SMF_RESTARTER=%s", INETD_INSTANCE_FMRI);
124 	if (*np == NULL)
125 		goto fail;
126 	else
127 		np++;
128 	*np = uu_msprintf("SMF_FMRI=%s", instance->fmri);
129 	if (*np == NULL)
130 		goto fail;
131 	else
132 		np++;
133 	*np = uu_msprintf("SMF_METHOD=%s", method);
134 	if (*np == NULL)
135 		goto fail;
136 	else
137 		np++;
138 
139 	if (instance->config->basic->inherit_env) {
140 		for (p = environ; *p != NULL; p++) {
141 			if (!valid_env_var(*p, NULL, NULL))
142 				continue;
143 
144 			*np = strdup(*p);
145 			if (*np == NULL)
146 				goto fail;
147 			else
148 				np++;
149 		}
150 	}
151 
152 	if (mthd_ctxt->env != NULL) {
153 		for (p = mthd_ctxt->env; *p != NULL; p++) {
154 			char **dup_pos;
155 
156 			if (!valid_env_var(*p, instance->fmri, method))
157 				continue;
158 
159 			if ((dup_pos = find_dup(*p, nenv, instance->fmri,
160 			    method)) != NULL) {
161 				free(*dup_pos);
162 				*dup_pos = strdup(*p);
163 				if (*dup_pos == NULL)
164 					goto fail;
165 			} else {
166 				*np = strdup(*p);
167 				if (*np == NULL)
168 					goto fail;
169 				else
170 					np++;
171 			}
172 		}
173 	}
174 	*np = NULL;
175 
176 	return (nenv);
177 fail:
178 	p = nenv;
179 	while (nenv_size--)
180 		free(*p++);
181 	free(nenv);
182 	return (NULL);
183 }
184