xref: /titanic_50/usr/src/lib/libshare/nfs/libshare_nfs.c (revision 07b64d17ebeb1cc3f2777494d108511275630d14)
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 (the "License").
6  * You may not use this file except in compliance with the License.
7  *
8  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9  * or http://www.opensolaris.org/os/licensing.
10  * See the License for the specific language governing permissions
11  * and limitations under the License.
12  *
13  * When distributing Covered Code, include this CDDL HEADER in each
14  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15  * If applicable, add the following below this CDDL HEADER, with the
16  * fields enclosed by brackets "[]" replaced with your own identifying
17  * information: Portions Copyright [yyyy] [name of copyright owner]
18  *
19  * CDDL HEADER END
20  */
21 
22 /*
23  * Copyright 2015 Nexenta Systems, Inc.  All rights reserved.
24  * Copyright (c) 2006, 2010, Oracle and/or its affiliates. All rights reserved.
25  */
26 
27 /*
28  * NFS specific functions
29  */
30 #include <stdio.h>
31 #include <string.h>
32 #include <ctype.h>
33 #include <stdlib.h>
34 #include <unistd.h>
35 #include <zone.h>
36 #include <errno.h>
37 #include <locale.h>
38 #include <signal.h>
39 #include <strings.h>
40 #include "libshare.h"
41 #include "libshare_impl.h"
42 #include <nfs/export.h>
43 #include <pwd.h>
44 #include <grp.h>
45 #include <limits.h>
46 #include <libscf.h>
47 #include <syslog.h>
48 #include <rpcsvc/daemon_utils.h>
49 #include "nfslog_config.h"
50 #include "nfslogtab.h"
51 #include "libshare_nfs.h"
52 #include <nfs/nfs.h>
53 #include <nfs/nfssys.h>
54 #include "smfcfg.h"
55 
56 /* should really be in some global place */
57 #define	DEF_WIN	30000
58 #define	OPT_CHUNK	1024
59 
60 int debug = 0;
61 
62 #define	NFS_SERVER_SVC	"svc:/network/nfs/server:default"
63 #define	NFS_CLIENT_SVC	(char *)"svc:/network/nfs/client:default"
64 
65 /* internal functions */
66 static int nfs_init();
67 static void nfs_fini();
68 static int nfs_enable_share(sa_share_t);
69 static int nfs_disable_share(sa_share_t, char *);
70 static int nfs_validate_property(sa_handle_t, sa_property_t, sa_optionset_t);
71 static int nfs_validate_security_mode(char *);
72 static int nfs_is_security_opt(char *);
73 static int nfs_parse_legacy_options(sa_group_t, char *);
74 static char *nfs_format_options(sa_group_t, int);
75 static int nfs_set_proto_prop(sa_property_t);
76 static sa_protocol_properties_t nfs_get_proto_set();
77 static char *nfs_get_status();
78 static char *nfs_space_alias(char *);
79 static uint64_t nfs_features();
80 
81 /*
82  * ops vector that provides the protocol specific info and operations
83  * for share management.
84  */
85 
86 struct sa_plugin_ops sa_plugin_ops = {
87 	SA_PLUGIN_VERSION,
88 	"nfs",
89 	nfs_init,
90 	nfs_fini,
91 	nfs_enable_share,
92 	nfs_disable_share,
93 	nfs_validate_property,
94 	nfs_validate_security_mode,
95 	nfs_is_security_opt,
96 	nfs_parse_legacy_options,
97 	nfs_format_options,
98 	nfs_set_proto_prop,
99 	nfs_get_proto_set,
100 	nfs_get_status,
101 	nfs_space_alias,
102 	NULL,	/* update_legacy */
103 	NULL,	/* delete_legacy */
104 	NULL,	/* change_notify */
105 	NULL,	/* enable_resource */
106 	NULL,	/* disable_resource */
107 	nfs_features,
108 	NULL,	/* transient shares */
109 	NULL,	/* notify resource */
110 	NULL,	/* rename_resource */
111 	NULL,	/* run_command */
112 	NULL,	/* command_help */
113 	NULL	/* delete_proto_section */
114 };
115 
116 /*
117  * list of support services needed
118  * defines should come from head/rpcsvc/daemon_utils.h
119  */
120 
121 static char *service_list_default[] =
122 	{ STATD, LOCKD, MOUNTD, NFSD, NFSMAPID, RQUOTAD, REPARSED, NULL };
123 static char *service_list_logging[] =
124 	{ STATD, LOCKD, MOUNTD, NFSD, NFSMAPID, RQUOTAD, NFSLOGD, REPARSED,
125 	    NULL };
126 
127 /*
128  * option definitions.  Make sure to keep the #define for the option
129  * index just before the entry it is the index for. Changing the order
130  * can cause breakage.  E.g OPT_RW is index 1 and must precede the
131  * line that includes the SHOPT_RW and OPT_RW entries.
132  */
133 
134 struct option_defs optdefs[] = {
135 #define	OPT_RO		0
136 	{SHOPT_RO, OPT_RO, OPT_TYPE_ACCLIST},
137 #define	OPT_RW		1
138 	{SHOPT_RW, OPT_RW, OPT_TYPE_ACCLIST},
139 #define	OPT_ROOT	2
140 	{SHOPT_ROOT, OPT_ROOT, OPT_TYPE_ACCLIST},
141 #define	OPT_SECURE	3
142 	{SHOPT_SECURE, OPT_SECURE, OPT_TYPE_DEPRECATED},
143 #define	OPT_ANON	4
144 	{SHOPT_ANON, OPT_ANON, OPT_TYPE_USER},
145 #define	OPT_WINDOW	5
146 	{SHOPT_WINDOW, OPT_WINDOW, OPT_TYPE_NUMBER},
147 #define	OPT_NOSUID	6
148 	{SHOPT_NOSUID, OPT_NOSUID, OPT_TYPE_BOOLEAN},
149 #define	OPT_ACLOK	7
150 	{SHOPT_ACLOK, OPT_ACLOK, OPT_TYPE_BOOLEAN},
151 #define	OPT_NOSUB	8
152 	{SHOPT_NOSUB, OPT_NOSUB, OPT_TYPE_BOOLEAN},
153 #define	OPT_SEC		9
154 	{SHOPT_SEC, OPT_SEC, OPT_TYPE_SECURITY},
155 #define	OPT_PUBLIC	10
156 	{SHOPT_PUBLIC, OPT_PUBLIC, OPT_TYPE_BOOLEAN, OPT_SHARE_ONLY},
157 #define	OPT_INDEX	11
158 	{SHOPT_INDEX, OPT_INDEX, OPT_TYPE_FILE},
159 #define	OPT_LOG		12
160 	{SHOPT_LOG, OPT_LOG, OPT_TYPE_LOGTAG},
161 #define	OPT_CKSUM	13
162 	{SHOPT_CKSUM, OPT_CKSUM, OPT_TYPE_STRINGSET},
163 #define	OPT_NONE	14
164 	{SHOPT_NONE, OPT_NONE, OPT_TYPE_ACCLIST},
165 #define	OPT_ROOT_MAPPING	15
166 	{SHOPT_ROOT_MAPPING, OPT_ROOT_MAPPING, OPT_TYPE_USER},
167 #define	OPT_CHARSET_MAP	16
168 	{"", OPT_CHARSET_MAP, OPT_TYPE_ACCLIST},
169 #define	OPT_NOACLFAB	17
170 	{SHOPT_NOACLFAB, OPT_NOACLFAB, OPT_TYPE_BOOLEAN},
171 #define	OPT_UIDMAP	18
172 	{SHOPT_UIDMAP, OPT_UIDMAP, OPT_TYPE_MAPPING},
173 #define	OPT_GIDMAP	19
174 	{SHOPT_GIDMAP, OPT_GIDMAP, OPT_TYPE_MAPPING},
175 #ifdef VOLATILE_FH_TEST	/* XXX added for testing volatile fh's only */
176 #define	OPT_VOLFH	20
177 	{SHOPT_VOLFH, OPT_VOLFH},
178 #endif /* VOLATILE_FH_TEST */
179 	NULL
180 };
181 
182 /*
183  * Codesets that may need to be converted to UTF-8 for file paths.
184  * Add new names here to add new property support. If we ever get a
185  * way to query the kernel for character sets, this should become
186  * dynamically loaded. Make sure changes here are reflected in
187  * cmd/fs.d/nfs/mountd/nfscmd.c
188  */
189 
190 static char *legal_conv[] = {
191 	"euc-cn",
192 	"euc-jp",
193 	"euc-jpms",
194 	"euc-kr",
195 	"euc-tw",
196 	"iso8859-1",
197 	"iso8859-2",
198 	"iso8859-5",
199 	"iso8859-6",
200 	"iso8859-7",
201 	"iso8859-8",
202 	"iso8859-9",
203 	"iso8859-13",
204 	"iso8859-15",
205 	"koi8-r",
206 	NULL
207 };
208 
209 /*
210  * list of properties that are related to security flavors.
211  */
212 static char *seclist[] = {
213 	SHOPT_RO,
214 	SHOPT_RW,
215 	SHOPT_ROOT,
216 	SHOPT_WINDOW,
217 	SHOPT_NONE,
218 	SHOPT_ROOT_MAPPING,
219 	SHOPT_UIDMAP,
220 	SHOPT_GIDMAP,
221 	NULL
222 };
223 
224 /* structure for list of securities */
225 struct securities {
226 	sa_security_t security;
227 	struct securities *next;
228 };
229 
230 /*
231  * findcharset(charset)
232  *
233  * Returns B_TRUE if the charset is a legal conversion otherwise
234  * B_FALSE. This will need to be rewritten to be more efficient when
235  * we have a dynamic list of legal conversions.
236  */
237 
238 static boolean_t
findcharset(char * charset)239 findcharset(char *charset)
240 {
241 	int i;
242 
243 	for (i = 0; legal_conv[i] != NULL; i++)
244 		if (strcmp(charset, legal_conv[i]) == 0)
245 			return (B_TRUE);
246 	return (B_FALSE);
247 }
248 
249 /*
250  * findopt(name)
251  *
252  * Lookup option "name" in the option table and return the table
253  * index.
254  */
255 
256 static int
findopt(char * name)257 findopt(char *name)
258 {
259 	int i;
260 	if (name != NULL) {
261 		for (i = 0; optdefs[i].tag != NULL; i++) {
262 			if (strcmp(optdefs[i].tag, name) == 0)
263 				return (optdefs[i].index);
264 		}
265 		if (findcharset(name))
266 			return (OPT_CHARSET_MAP);
267 	}
268 	return (-1);
269 }
270 
271 /*
272  * gettype(name)
273  *
274  * Return the type of option "name".
275  */
276 
277 static int
gettype(char * name)278 gettype(char *name)
279 {
280 	int optdef;
281 
282 	optdef = findopt(name);
283 	if (optdef != -1)
284 		return (optdefs[optdef].type);
285 	return (OPT_TYPE_ANY);
286 }
287 
288 /*
289  * nfs_validate_security_mode(mode)
290  *
291  * is the specified mode string a valid one for use with NFS?
292  */
293 
294 static int
nfs_validate_security_mode(char * mode)295 nfs_validate_security_mode(char *mode)
296 {
297 	seconfig_t secinfo;
298 	int err;
299 
300 	(void) memset(&secinfo, '\0', sizeof (secinfo));
301 	err = nfs_getseconfig_byname(mode, &secinfo);
302 	if (err == SC_NOERROR)
303 		return (1);
304 	return (0);
305 }
306 
307 /*
308  * nfs_is_security_opt(tok)
309  *
310  * check to see if tok represents an option that is only valid in some
311  * security flavor.
312  */
313 
314 static int
nfs_is_security_opt(char * tok)315 nfs_is_security_opt(char *tok)
316 {
317 	int i;
318 
319 	for (i = 0; seclist[i] != NULL; i++) {
320 		if (strcmp(tok, seclist[i]) == 0)
321 			return (1);
322 	}
323 	return (0);
324 }
325 
326 /*
327  * find_security(seclist, sec)
328  *
329  * Walk the current list of security flavors and return true if it is
330  * present, else return false.
331  */
332 
333 static int
find_security(struct securities * seclist,sa_security_t sec)334 find_security(struct securities *seclist, sa_security_t sec)
335 {
336 	while (seclist != NULL) {
337 		if (seclist->security == sec)
338 			return (1);
339 		seclist = seclist->next;
340 	}
341 	return (0);
342 }
343 
344 /*
345  * make_security_list(group, securitymodes, proto)
346  *	go through the list of securitymodes and add them to the
347  *	group's list of security optionsets. We also keep a list of
348  *	those optionsets so we don't have to find them later. All of
349  *	these will get copies of the same properties.
350  */
351 
352 static struct securities *
make_security_list(sa_group_t group,char * securitymodes,char * proto)353 make_security_list(sa_group_t group, char *securitymodes, char *proto)
354 {
355 	char *tok, *next = NULL;
356 	struct securities *curp, *headp = NULL, *prev;
357 	sa_security_t check;
358 	int freetok = 0;
359 
360 	for (tok = securitymodes; tok != NULL; tok = next) {
361 		next = strchr(tok, ':');
362 		if (next != NULL)
363 			*next++ = '\0';
364 		if (strcmp(tok, "default") == 0) {
365 			/* resolve default into the real type */
366 			tok = nfs_space_alias(tok);
367 			freetok = 1;
368 		}
369 		check = sa_get_security(group, tok, proto);
370 
371 		/* add to the security list if it isn't there already */
372 		if (check == NULL || !find_security(headp, check)) {
373 			curp = (struct securities *)calloc(1,
374 			    sizeof (struct securities));
375 			if (curp != NULL) {
376 				if (check == NULL) {
377 					curp->security = sa_create_security(
378 					    group, tok, proto);
379 				} else {
380 					curp->security = check;
381 				}
382 				/*
383 				 * note that the first time through the loop,
384 				 * headp will be NULL and prev will be
385 				 * undefined.  Since headp is NULL, we set
386 				 * both it and prev to the curp (first
387 				 * structure to be allocated).
388 				 *
389 				 * later passes through the loop will have
390 				 * headp not being NULL and prev will be used
391 				 * to allocate at the end of the list.
392 				 */
393 				if (headp == NULL) {
394 					headp = curp;
395 					prev = curp;
396 				} else {
397 					prev->next = curp;
398 					prev = curp;
399 				}
400 			}
401 		}
402 
403 		if (freetok) {
404 			freetok = 0;
405 			sa_free_attr_string(tok);
406 		}
407 	}
408 	return (headp);
409 }
410 
411 static void
free_security_list(struct securities * sec)412 free_security_list(struct securities *sec)
413 {
414 	struct securities *next;
415 	if (sec != NULL) {
416 		for (next = sec->next; sec != NULL; sec = next) {
417 			next = sec->next;
418 			free(sec);
419 		}
420 	}
421 }
422 
423 /*
424  * nfs_alistcat(str1, str2, sep)
425  *
426  * concatenate str1 and str2 into a new string using sep as a separate
427  * character. If memory allocation fails, return NULL;
428  */
429 
430 static char *
nfs_alistcat(char * str1,char * str2,char sep)431 nfs_alistcat(char *str1, char *str2, char sep)
432 {
433 	char *newstr;
434 	size_t len;
435 
436 	len = strlen(str1) + strlen(str2) + 2;
437 	newstr = (char *)malloc(len);
438 	if (newstr != NULL)
439 		(void) snprintf(newstr, len, "%s%c%s", str1, sep, str2);
440 	return (newstr);
441 }
442 
443 /*
444  * add_security_prop(sec, name, value, persist, iszfs)
445  *
446  * Add the property to the securities structure. This accumulates
447  * properties for as part of parsing legacy options.
448  */
449 
450 static int
add_security_prop(struct securities * sec,char * name,char * value,int persist,int iszfs)451 add_security_prop(struct securities *sec, char *name, char *value,
452 			int persist, int iszfs)
453 {
454 	sa_property_t prop;
455 	int ret = SA_OK;
456 
457 	for (; sec != NULL; sec = sec->next) {
458 		if (value == NULL) {
459 			if (strcmp(name, SHOPT_RW) == 0 ||
460 			    strcmp(name, SHOPT_RO) == 0)
461 				value = "*";
462 			else
463 				value = "true";
464 		}
465 
466 		/*
467 		 * Get the existing property, if it exists, so we can
468 		 * determine what to do with it. The ro/rw/root
469 		 * properties can be merged if multiple instances of
470 		 * these properies are given. For example, if "rw"
471 		 * exists with a value "host1" and a later token of
472 		 * rw="host2" is seen, the values are merged into a
473 		 * single rw="host1:host2".
474 		 */
475 		prop = sa_get_property(sec->security, name);
476 
477 		if (prop != NULL) {
478 			char *oldvalue;
479 			char *newvalue;
480 
481 			/*
482 			 * The security options of ro/rw/root/uidmap/gidmap
483 			 * might appear multiple times.  If they do, the values
484 			 * need to be merged.  If it was previously empty, the
485 			 * new value alone is added.
486 			 */
487 			oldvalue = sa_get_property_attr(prop, "value");
488 			if (oldvalue != NULL) {
489 				char sep = ':';
490 
491 				if (strcmp(name, SHOPT_UIDMAP) == 0 ||
492 				    strcmp(name, SHOPT_GIDMAP) == 0)
493 					sep = '~';
494 
495 				/*
496 				 * The general case is to concatenate the new
497 				 * value onto the old value for multiple
498 				 * rw(ro/root/uidmap/gidmap) properties.  For
499 				 * rw/ro/root a special case exists when either
500 				 * the old or new is the "all" case.  In the
501 				 * special case, if both are "all", then it is
502 				 * "all", else if one is an access-list, that
503 				 * replaces the "all".
504 				 */
505 				if (strcmp(oldvalue, "*") == 0) {
506 					/* Replace old value with new value. */
507 					newvalue = strdup(value);
508 				} else if (strcmp(value, "*") == 0 ||
509 				    strcmp(oldvalue, value) == 0) {
510 					/*
511 					 * Keep old value and ignore
512 					 * the new value.
513 					 */
514 					newvalue = NULL;
515 				} else {
516 					/*
517 					 * Make a new list of old plus new
518 					 * access-list.
519 					 */
520 					newvalue = nfs_alistcat(oldvalue,
521 					    value, sep);
522 				}
523 
524 				if (newvalue != NULL) {
525 					(void) sa_remove_property(prop);
526 					prop = sa_create_property(name,
527 					    newvalue);
528 					ret = sa_add_property(sec->security,
529 					    prop);
530 					free(newvalue);
531 				}
532 
533 				sa_free_attr_string(oldvalue);
534 			}
535 		} else {
536 			prop = sa_create_property(name, value);
537 			ret = sa_add_property(sec->security, prop);
538 		}
539 		if (ret == SA_OK && !iszfs) {
540 			ret = sa_commit_properties(sec->security, !persist);
541 		}
542 	}
543 	return (ret);
544 }
545 
546 /*
547  * check to see if group/share is persistent.
548  */
549 static int
is_persistent(sa_group_t group)550 is_persistent(sa_group_t group)
551 {
552 	char *type;
553 	int persist = 1;
554 
555 	type = sa_get_group_attr(group, "type");
556 	if (type != NULL && strcmp(type, "persist") != 0)
557 		persist = 0;
558 	if (type != NULL)
559 		sa_free_attr_string(type);
560 	return (persist);
561 }
562 
563 /*
564  * invalid_security(options)
565  *
566  * search option string for any invalid sec= type.
567  * return true (1) if any are not valid else false (0)
568  */
569 static int
invalid_security(char * options)570 invalid_security(char *options)
571 {
572 	char *copy, *base, *token, *value;
573 	int ret = 0;
574 
575 	copy = strdup(options);
576 	token = base = copy;
577 	while (token != NULL && ret == 0) {
578 		token = strtok(base, ",");
579 		base = NULL;
580 		if (token != NULL) {
581 			value = strchr(token, '=');
582 			if (value != NULL)
583 				*value++ = '\0';
584 			if (strcmp(token, SHOPT_SEC) == 0) {
585 				/* HAVE security flavors so check them */
586 				char *tok, *next;
587 				for (next = NULL, tok = value; tok != NULL;
588 				    tok = next) {
589 					next = strchr(tok, ':');
590 					if (next != NULL)
591 						*next++ = '\0';
592 					ret = !nfs_validate_security_mode(tok);
593 					if (ret)
594 						break;
595 				}
596 			}
597 		}
598 	}
599 	if (copy != NULL)
600 		free(copy);
601 	return (ret);
602 }
603 
604 /*
605  * nfs_parse_legacy_options(group, options)
606  *
607  * Parse the old style options into internal format and store on the
608  * specified group.  Group could be a share for full legacy support.
609  */
610 
611 static int
nfs_parse_legacy_options(sa_group_t group,char * options)612 nfs_parse_legacy_options(sa_group_t group, char *options)
613 {
614 	char *dup;
615 	char *base;
616 	char *token;
617 	sa_optionset_t optionset;
618 	struct securities *security_list = NULL;
619 	sa_property_t prop;
620 	int ret = SA_OK;
621 	int iszfs = 0;
622 	sa_group_t parent;
623 	int persist = 0;
624 	char *lasts;
625 
626 	/* do we have an existing optionset? */
627 	optionset = sa_get_optionset(group, "nfs");
628 	if (optionset == NULL) {
629 		/* didn't find existing optionset so create one */
630 		optionset = sa_create_optionset(group, "nfs");
631 	} else {
632 		/*
633 		 * Have an existing optionset . Ideally, we would need
634 		 * to compare options in order to detect errors. For
635 		 * now, we assume that the first optionset is the
636 		 * correct one and the others will be the same. An
637 		 * empty optionset is the same as no optionset so we
638 		 * don't want to exit in that case. Getting an empty
639 		 * optionset can occur with ZFS property checking.
640 		 */
641 		if (sa_get_property(optionset, NULL) != NULL)
642 			return (ret);
643 	}
644 
645 	if (strcmp(options, SHOPT_RW) == 0) {
646 		/*
647 		 * there is a special case of only the option "rw"
648 		 * being the default option. We don't have to do
649 		 * anything.
650 		 */
651 		return (ret);
652 	}
653 
654 	/*
655 	 * check if security types are present and validate them. If
656 	 * any are not legal, fail.
657 	 */
658 
659 	if (invalid_security(options)) {
660 		return (SA_INVALID_SECURITY);
661 	}
662 
663 	/*
664 	 * in order to not attempt to change ZFS properties unless
665 	 * absolutely necessary, we never do it in the legacy parsing.
666 	 */
667 	if (sa_is_share(group)) {
668 		char *zfs;
669 		parent = sa_get_parent_group(group);
670 		if (parent != NULL) {
671 			zfs = sa_get_group_attr(parent, "zfs");
672 			if (zfs != NULL) {
673 				sa_free_attr_string(zfs);
674 				iszfs++;
675 			}
676 		}
677 	} else {
678 		iszfs = sa_group_is_zfs(group);
679 	}
680 
681 	/* We need a copy of options for the next part. */
682 	dup = strdup(options);
683 	if (dup == NULL)
684 		return (SA_NO_MEMORY);
685 
686 	/*
687 	 * we need to step through each option in the string and then
688 	 * add either the option or the security option as needed. If
689 	 * this is not a persistent share, don't commit to the
690 	 * repository. If there is an error, we also want to abort the
691 	 * processing and report it.
692 	 */
693 	persist = is_persistent(group);
694 	base = dup;
695 	token = dup;
696 	lasts = NULL;
697 	while (token != NULL && ret == SA_OK) {
698 		token = strtok_r(base, ",", &lasts);
699 		base = NULL;
700 		if (token != NULL) {
701 			char *value;
702 			/*
703 			 * if the option has a value, it will have an '=' to
704 			 * separate the name from the value. The following
705 			 * code will result in value != NULL and token
706 			 * pointing to just the name if there is a value.
707 			 */
708 			value = strchr(token, '=');
709 			if (value != NULL) {
710 				*value++ = '\0';
711 			}
712 			if (strcmp(token, SHOPT_SEC) == 0 ||
713 			    strcmp(token, SHOPT_SECURE) == 0) {
714 				/*
715 				 * Once in security parsing, we only
716 				 * do security. We do need to move
717 				 * between the security node and the
718 				 * toplevel. The security tag goes on
719 				 * the root while the following ones
720 				 * go on the security.
721 				 */
722 				if (security_list != NULL) {
723 					/*
724 					 * have an old list so close it and
725 					 * start the new
726 					 */
727 					free_security_list(security_list);
728 				}
729 				if (strcmp(token, SHOPT_SECURE) == 0) {
730 					value = "dh";
731 				} else {
732 					if (value == NULL) {
733 						ret = SA_SYNTAX_ERR;
734 						break;
735 					}
736 				}
737 				security_list = make_security_list(group,
738 				    value, "nfs");
739 			} else {
740 				/*
741 				 * Note that the "old" syntax allowed a
742 				 * default security model.  This must be
743 				 * accounted for and internally converted to
744 				 * "standard" security structure.
745 				 */
746 				if (nfs_is_security_opt(token)) {
747 					if (security_list == NULL) {
748 						/*
749 						 * need to have a
750 						 * security
751 						 * option. This will
752 						 * be "closed" when a
753 						 * defined "sec="
754 						 * option is
755 						 * seen. This is
756 						 * technically an
757 						 * error but will be
758 						 * allowed with
759 						 * warning.
760 						 */
761 						security_list =
762 						    make_security_list(group,
763 						    "default",
764 						    "nfs");
765 					}
766 					if (security_list != NULL) {
767 						ret = add_security_prop(
768 						    security_list, token,
769 						    value, persist, iszfs);
770 					} else {
771 						ret = SA_NO_MEMORY;
772 					}
773 				} else {
774 					/* regular options */
775 					if (value == NULL) {
776 						if (strcmp(token, SHOPT_RW) ==
777 						    0 || strcmp(token,
778 						    SHOPT_RO) == 0) {
779 							value = "*";
780 						} else {
781 							value = "global";
782 							if (strcmp(token,
783 							    SHOPT_LOG) != 0) {
784 								value = "true";
785 							}
786 						}
787 					}
788 					/*
789 					 * In all cases, create the
790 					 * property specified. If the
791 					 * value was NULL, the default
792 					 * value will have been
793 					 * substituted.
794 					 */
795 					prop = sa_create_property(token, value);
796 					ret =  sa_add_property(optionset, prop);
797 					if (ret != SA_OK)
798 						break;
799 
800 					if (!iszfs) {
801 						ret = sa_commit_properties(
802 						    optionset, !persist);
803 					}
804 				}
805 			}
806 		}
807 	}
808 	if (security_list != NULL)
809 		free_security_list(security_list);
810 
811 	free(dup);
812 	return (ret);
813 }
814 
815 /*
816  * is_a_number(number)
817  *
818  * is the string a number in one of the forms we want to use?
819  */
820 
821 static int
is_a_number(char * number)822 is_a_number(char *number)
823 {
824 	int ret = 1;
825 	int hex = 0;
826 
827 	if (strncmp(number, "0x", 2) == 0) {
828 		number += 2;
829 		hex = 1;
830 	} else if (*number == '-') {
831 		number++; /* skip the minus */
832 	}
833 	while (ret == 1 && *number != '\0') {
834 		if (hex) {
835 			ret = isxdigit(*number++);
836 		} else {
837 			ret = isdigit(*number++);
838 		}
839 	}
840 	return (ret);
841 }
842 
843 /*
844  * Look for the specified tag in the configuration file. If it is found,
845  * enable logging and set the logging configuration information for exp.
846  */
847 static void
configlog(struct exportdata * exp,char * tag)848 configlog(struct exportdata *exp, char *tag)
849 {
850 	nfsl_config_t *configlist = NULL, *configp;
851 	int error = 0;
852 	char globaltag[] = DEFAULTTAG;
853 
854 	/*
855 	 * Sends config errors to stderr
856 	 */
857 	nfsl_errs_to_syslog = B_FALSE;
858 
859 	/*
860 	 * get the list of configuration settings
861 	 */
862 	error = nfsl_getconfig_list(&configlist);
863 	if (error) {
864 		(void) fprintf(stderr,
865 		    dgettext(TEXT_DOMAIN, "Cannot get log configuration: %s\n"),
866 		    strerror(error));
867 	}
868 
869 	if (tag == NULL)
870 		tag = globaltag;
871 	if ((configp = nfsl_findconfig(configlist, tag, &error)) == NULL) {
872 		nfsl_freeconfig_list(&configlist);
873 		(void) fprintf(stderr,
874 		    dgettext(TEXT_DOMAIN, "No tags matching \"%s\"\n"), tag);
875 		/* bad configuration */
876 		error = ENOENT;
877 		goto err;
878 	}
879 
880 	if ((exp->ex_tag = strdup(tag)) == NULL) {
881 		error = ENOMEM;
882 		goto out;
883 	}
884 	if ((exp->ex_log_buffer = strdup(configp->nc_bufferpath)) == NULL) {
885 		error = ENOMEM;
886 		goto out;
887 	}
888 	exp->ex_flags |= EX_LOG;
889 	if (configp->nc_rpclogpath != NULL)
890 		exp->ex_flags |= EX_LOG_ALLOPS;
891 out:
892 	if (configlist != NULL)
893 		nfsl_freeconfig_list(&configlist);
894 
895 err:
896 	if (error != 0) {
897 		free(exp->ex_tag);
898 		free(exp->ex_log_buffer);
899 		(void) fprintf(stderr,
900 		    dgettext(TEXT_DOMAIN, "Cannot set log configuration: %s\n"),
901 		    strerror(error));
902 	}
903 }
904 
905 /*
906  * fill_export_from_optionset(export, optionset)
907  *
908  * In order to share, we need to set all the possible general options
909  * into the export structure. Share info will be filled in by the
910  * caller. Various property values get turned into structure specific
911  * values.
912  */
913 
914 static int
fill_export_from_optionset(struct exportdata * export,sa_optionset_t optionset)915 fill_export_from_optionset(struct exportdata *export, sa_optionset_t optionset)
916 {
917 	sa_property_t option;
918 	int ret = SA_OK;
919 
920 	for (option = sa_get_property(optionset, NULL);
921 	    option != NULL; option = sa_get_next_property(option)) {
922 		char *name;
923 		char *value;
924 		uint32_t val;
925 
926 		/*
927 		 * since options may be set/reset multiple times, always do an
928 		 * explicit set or clear of the option. This allows defaults
929 		 * to be set and then the protocol specific to override.
930 		 */
931 
932 		name = sa_get_property_attr(option, "type");
933 		value = sa_get_property_attr(option, "value");
934 		switch (findopt(name)) {
935 		case OPT_ANON:
936 			if (value != NULL && is_a_number(value)) {
937 				val = strtoul(value, NULL, 0);
938 			} else {
939 				struct passwd *pw;
940 				pw = getpwnam(value != NULL ? value : "nobody");
941 				if (pw != NULL) {
942 					val = pw->pw_uid;
943 				} else {
944 					val = UID_NOBODY;
945 				}
946 				endpwent();
947 			}
948 			export->ex_anon = val;
949 			break;
950 		case OPT_NOSUID:
951 			if (value != NULL && (strcasecmp(value, "true") == 0 ||
952 			    strcmp(value, "1") == 0))
953 				export->ex_flags |= EX_NOSUID;
954 			else
955 				export->ex_flags &= ~EX_NOSUID;
956 			break;
957 		case OPT_ACLOK:
958 			if (value != NULL && (strcasecmp(value, "true") == 0 ||
959 			    strcmp(value, "1") == 0))
960 				export->ex_flags |= EX_ACLOK;
961 			else
962 				export->ex_flags &= ~EX_ACLOK;
963 			break;
964 		case OPT_NOSUB:
965 			if (value != NULL && (strcasecmp(value, "true") == 0 ||
966 			    strcmp(value, "1") == 0))
967 				export->ex_flags |= EX_NOSUB;
968 			else
969 				export->ex_flags &= ~EX_NOSUB;
970 			break;
971 		case OPT_PUBLIC:
972 			if (value != NULL && (strcasecmp(value, "true") == 0 ||
973 			    strcmp(value, "1") == 0))
974 				export->ex_flags |= EX_PUBLIC;
975 			else
976 				export->ex_flags &= ~EX_PUBLIC;
977 			break;
978 		case OPT_INDEX:
979 			if (value != NULL && (strcmp(value, "..") == 0 ||
980 			    strchr(value, '/') != NULL)) {
981 				/* this is an error */
982 				(void) printf(dgettext(TEXT_DOMAIN,
983 				    "NFS: index=\"%s\" not valid;"
984 				    "must be a filename.\n"),
985 				    value);
986 				break;
987 			}
988 			if (value != NULL && *value != '\0' &&
989 			    strcmp(value, ".") != 0) {
990 				/* valid index file string */
991 				if (export->ex_index != NULL) {
992 					/* left over from "default" */
993 					free(export->ex_index);
994 				}
995 				/* remember to free */
996 				export->ex_index = strdup(value);
997 				if (export->ex_index == NULL) {
998 					(void) printf(dgettext(TEXT_DOMAIN,
999 					    "NFS: out of memory setting "
1000 					    "index property\n"));
1001 					break;
1002 				}
1003 				export->ex_flags |= EX_INDEX;
1004 			}
1005 			break;
1006 		case OPT_LOG:
1007 			if (value == NULL)
1008 				value = strdup("global");
1009 			if (value != NULL)
1010 				configlog(export,
1011 				    strlen(value) ? value : "global");
1012 			break;
1013 		case OPT_CHARSET_MAP:
1014 			/*
1015 			 * Set EX_CHARMAP when there is at least one
1016 			 * charmap conversion property. This will get
1017 			 * checked by the nfs server when it needs to.
1018 			 */
1019 			export->ex_flags |= EX_CHARMAP;
1020 			break;
1021 		case OPT_NOACLFAB:
1022 			if (value != NULL && (strcasecmp(value, "true") == 0 ||
1023 			    strcmp(value, "1") == 0))
1024 				export->ex_flags |= EX_NOACLFAB;
1025 			else
1026 				export->ex_flags &= ~EX_NOACLFAB;
1027 			break;
1028 		default:
1029 			/* have a syntactic error */
1030 			(void) printf(dgettext(TEXT_DOMAIN,
1031 			    "NFS: unrecognized option %s=%s\n"),
1032 			    name != NULL ? name : "",
1033 			    value != NULL ? value : "");
1034 			break;
1035 		}
1036 		if (name != NULL)
1037 			sa_free_attr_string(name);
1038 		if (value != NULL)
1039 			sa_free_attr_string(value);
1040 	}
1041 	return (ret);
1042 }
1043 
1044 /*
1045  * cleanup_export(export)
1046  *
1047  * Cleanup the allocated areas so we don't leak memory
1048  */
1049 
1050 static void
cleanup_export(struct exportdata * export)1051 cleanup_export(struct exportdata *export)
1052 {
1053 	int i;
1054 
1055 	free(export->ex_index);
1056 
1057 	for (i = 0; i < export->ex_seccnt; i++) {
1058 		struct secinfo *s = &export->ex_secinfo[i];
1059 
1060 		while (s->s_rootcnt > 0)
1061 			free(s->s_rootnames[--s->s_rootcnt]);
1062 
1063 		free(s->s_rootnames);
1064 	}
1065 	free(export->ex_secinfo);
1066 }
1067 
1068 /*
1069  * Given a seconfig entry and a colon-separated
1070  * list of names, allocate an array big enough
1071  * to hold the root list, then convert each name to
1072  * a principal name according to the security
1073  * info and assign it to an array element.
1074  * Return the array and its size.
1075  */
1076 static caddr_t *
get_rootnames(seconfig_t * sec,char * list,int * count)1077 get_rootnames(seconfig_t *sec, char *list, int *count)
1078 {
1079 	caddr_t *a;
1080 	int c, i;
1081 	char *host, *p;
1082 
1083 	/*
1084 	 * Count the number of strings in the list.
1085 	 * This is the number of colon separators + 1.
1086 	 */
1087 	c = 1;
1088 	for (p = list; *p; p++)
1089 		if (*p == ':')
1090 			c++;
1091 	*count = c;
1092 
1093 	a = (caddr_t *)malloc(c * sizeof (char *));
1094 	if (a == NULL) {
1095 		(void) printf(dgettext(TEXT_DOMAIN,
1096 		    "get_rootnames: no memory\n"));
1097 		*count = 0;
1098 	} else {
1099 		for (i = 0; i < c; i++) {
1100 			host = strtok(list, ":");
1101 			if (!nfs_get_root_principal(sec, host, &a[i])) {
1102 				while (i > 0)
1103 					free(a[--i]);
1104 				free(a);
1105 				a = NULL;
1106 				*count = 0;
1107 				break;
1108 			}
1109 			list = NULL;
1110 		}
1111 	}
1112 
1113 	return (a);
1114 }
1115 
1116 /*
1117  * fill_security_from_secopts(sp, secopts)
1118  *
1119  * Fill the secinfo structure from the secopts optionset.
1120  */
1121 
1122 static int
fill_security_from_secopts(struct secinfo * sp,sa_security_t secopts)1123 fill_security_from_secopts(struct secinfo *sp, sa_security_t secopts)
1124 {
1125 	sa_property_t prop;
1126 	char *type;
1127 	int longform;
1128 	int err = SC_NOERROR;
1129 	uint32_t val;
1130 
1131 	type = sa_get_security_attr(secopts, "sectype");
1132 	if (type != NULL) {
1133 		/* named security type needs secinfo to be filled in */
1134 		err = nfs_getseconfig_byname(type, &sp->s_secinfo);
1135 		sa_free_attr_string(type);
1136 		if (err != SC_NOERROR)
1137 			return (err);
1138 	} else {
1139 		/* default case */
1140 		err = nfs_getseconfig_default(&sp->s_secinfo);
1141 		if (err != SC_NOERROR)
1142 			return (err);
1143 	}
1144 
1145 	err = SA_OK;
1146 	for (prop = sa_get_property(secopts, NULL);
1147 	    prop != NULL && err == SA_OK;
1148 	    prop = sa_get_next_property(prop)) {
1149 		char *name;
1150 		char *value;
1151 
1152 		name = sa_get_property_attr(prop, "type");
1153 		value = sa_get_property_attr(prop, "value");
1154 
1155 		longform = value != NULL && strcmp(value, "*") != 0;
1156 
1157 		switch (findopt(name)) {
1158 		case OPT_RO:
1159 			sp->s_flags |= longform ? M_ROL : M_RO;
1160 			break;
1161 		case OPT_RW:
1162 			sp->s_flags |= longform ? M_RWL : M_RW;
1163 			break;
1164 		case OPT_ROOT:
1165 			sp->s_flags |= M_ROOT;
1166 			/*
1167 			 * if we are using AUTH_UNIX, handle like other things
1168 			 * such as RO/RW
1169 			 */
1170 			if (sp->s_secinfo.sc_rpcnum == AUTH_UNIX)
1171 				break;
1172 			/* not AUTH_UNIX */
1173 			if (value != NULL) {
1174 				sp->s_rootnames = get_rootnames(&sp->s_secinfo,
1175 				    value, &sp->s_rootcnt);
1176 				if (sp->s_rootnames == NULL) {
1177 					err = SA_BAD_VALUE;
1178 					(void) fprintf(stderr,
1179 					    dgettext(TEXT_DOMAIN,
1180 					    "Bad root list\n"));
1181 				}
1182 			}
1183 			break;
1184 		case OPT_NONE:
1185 			sp->s_flags |= M_NONE;
1186 			break;
1187 		case OPT_WINDOW:
1188 			if (value != NULL) {
1189 				sp->s_window = atoi(value);
1190 				/* just in case */
1191 				if (sp->s_window < 0)
1192 					sp->s_window = DEF_WIN;
1193 			}
1194 			break;
1195 		case OPT_ROOT_MAPPING:
1196 			if (value != NULL && is_a_number(value)) {
1197 				val = strtoul(value, NULL, 0);
1198 			} else {
1199 				struct passwd *pw;
1200 				pw = getpwnam(value != NULL ? value : "nobody");
1201 				if (pw != NULL) {
1202 					val = pw->pw_uid;
1203 				} else {
1204 					val = UID_NOBODY;
1205 				}
1206 				endpwent();
1207 			}
1208 			sp->s_rootid = val;
1209 			break;
1210 		case OPT_UIDMAP:
1211 		case OPT_GIDMAP:
1212 			sp->s_flags |= M_MAP;
1213 			break;
1214 		default:
1215 			break;
1216 		}
1217 		if (name != NULL)
1218 			sa_free_attr_string(name);
1219 		if (value != NULL)
1220 			sa_free_attr_string(value);
1221 	}
1222 	/* if rw/ro options not set, use default of RW */
1223 	if ((sp->s_flags & NFS_RWMODES) == 0)
1224 		sp->s_flags |= M_RW;
1225 	return (err);
1226 }
1227 
1228 /*
1229  * This is for testing only
1230  * It displays the export structure that
1231  * goes into the kernel.
1232  */
1233 static void
printarg(char * path,struct exportdata * ep)1234 printarg(char *path, struct exportdata *ep)
1235 {
1236 	int i, j;
1237 	struct secinfo *sp;
1238 
1239 	if (debug == 0)
1240 		return;
1241 
1242 	(void) printf("%s:\n", path);
1243 	(void) printf("\tex_version = %d\n", ep->ex_version);
1244 	(void) printf("\tex_path = %s\n", ep->ex_path);
1245 	(void) printf("\tex_pathlen = %ld\n", (ulong_t)ep->ex_pathlen);
1246 	(void) printf("\tex_flags: (0x%02x) ", ep->ex_flags);
1247 	if (ep->ex_flags & EX_NOSUID)
1248 		(void) printf("NOSUID ");
1249 	if (ep->ex_flags & EX_ACLOK)
1250 		(void) printf("ACLOK ");
1251 	if (ep->ex_flags & EX_PUBLIC)
1252 		(void) printf("PUBLIC ");
1253 	if (ep->ex_flags & EX_NOSUB)
1254 		(void) printf("NOSUB ");
1255 	if (ep->ex_flags & EX_LOG)
1256 		(void) printf("LOG ");
1257 	if (ep->ex_flags & EX_CHARMAP)
1258 		(void) printf("CHARMAP ");
1259 	if (ep->ex_flags & EX_LOG_ALLOPS)
1260 		(void) printf("LOG_ALLOPS ");
1261 	if (ep->ex_flags == 0)
1262 		(void) printf("(none)");
1263 	(void) 	printf("\n");
1264 	if (ep->ex_flags & EX_LOG) {
1265 		(void) printf("\tex_log_buffer = %s\n",
1266 		    (ep->ex_log_buffer ? ep->ex_log_buffer : "(NULL)"));
1267 		(void) printf("\tex_tag = %s\n",
1268 		    (ep->ex_tag ? ep->ex_tag : "(NULL)"));
1269 	}
1270 	(void) printf("\tex_anon = %d\n", ep->ex_anon);
1271 	(void) printf("\tex_seccnt = %d\n", ep->ex_seccnt);
1272 	(void) printf("\n");
1273 	for (i = 0; i < ep->ex_seccnt; i++) {
1274 		sp = &ep->ex_secinfo[i];
1275 		(void) printf("\t\ts_secinfo = %s\n", sp->s_secinfo.sc_name);
1276 		(void) printf("\t\ts_flags: (0x%02x) ", sp->s_flags);
1277 		if (sp->s_flags & M_ROOT) (void) printf("M_ROOT ");
1278 		if (sp->s_flags & M_RO) (void) printf("M_RO ");
1279 		if (sp->s_flags & M_ROL) (void) printf("M_ROL ");
1280 		if (sp->s_flags & M_RW) (void) printf("M_RW ");
1281 		if (sp->s_flags & M_RWL) (void) printf("M_RWL ");
1282 		if (sp->s_flags & M_NONE) (void) printf("M_NONE ");
1283 		if (sp->s_flags & M_MAP) (void) printf("M_MAP ");
1284 		if (sp->s_flags == 0) (void) printf("(none)");
1285 		(void) printf("\n");
1286 		(void) printf("\t\ts_window = %d\n", sp->s_window);
1287 		(void) printf("\t\ts_rootid = %d\n", sp->s_rootid);
1288 		(void) printf("\t\ts_rootcnt = %d ", sp->s_rootcnt);
1289 		(void) fflush(stdout);
1290 		for (j = 0; j < sp->s_rootcnt; j++)
1291 			(void) printf("%s ", sp->s_rootnames[j] ?
1292 			    sp->s_rootnames[j] : "<null>");
1293 		(void) printf("\n\n");
1294 	}
1295 }
1296 
1297 /*
1298  * count_security(opts)
1299  *
1300  * Count the number of security types (flavors). The optionset has
1301  * been populated with the security flavors as a holding mechanism.
1302  * We later use this number to allocate data structures.
1303  */
1304 
1305 static int
count_security(sa_optionset_t opts)1306 count_security(sa_optionset_t opts)
1307 {
1308 	int count = 0;
1309 	sa_property_t prop;
1310 	if (opts != NULL) {
1311 		for (prop = sa_get_property(opts, NULL); prop != NULL;
1312 		    prop = sa_get_next_property(prop)) {
1313 			count++;
1314 		}
1315 	}
1316 	return (count);
1317 }
1318 
1319 /*
1320  * nfs_sprint_option(rbuff, rbuffsize, incr, prop, sep)
1321  *
1322  * provides a mechanism to format NFS properties into legacy output
1323  * format. If the buffer would overflow, it is reallocated and grown
1324  * as appropriate. Special cases of converting internal form of values
1325  * to those used by "share" are done. this function does one property
1326  * at a time.
1327  */
1328 
1329 static int
nfs_sprint_option(char ** rbuff,size_t * rbuffsize,size_t incr,sa_property_t prop,int sep)1330 nfs_sprint_option(char **rbuff, size_t *rbuffsize, size_t incr,
1331 			sa_property_t prop, int sep)
1332 {
1333 	char *name;
1334 	char *value;
1335 	int curlen;
1336 	char *buff = *rbuff;
1337 	size_t buffsize = *rbuffsize;
1338 	int printed = B_FALSE;
1339 
1340 	name = sa_get_property_attr(prop, "type");
1341 	value = sa_get_property_attr(prop, "value");
1342 	if (buff != NULL)
1343 		curlen = strlen(buff);
1344 	else
1345 		curlen = 0;
1346 	if (name != NULL) {
1347 		int len;
1348 		len = strlen(name) + sep;
1349 
1350 		/*
1351 		 * A future RFE would be to replace this with more
1352 		 * generic code and to possibly handle more types.
1353 		 */
1354 		switch (gettype(name)) {
1355 		case OPT_TYPE_BOOLEAN:
1356 			/*
1357 			 * For NFS, boolean value of FALSE means it
1358 			 * doesn't show up in the option list at all.
1359 			 */
1360 			if (value != NULL && strcasecmp(value, "false") == 0)
1361 				goto skip;
1362 			if (value != NULL) {
1363 				sa_free_attr_string(value);
1364 				value = NULL;
1365 			}
1366 			break;
1367 		case OPT_TYPE_ACCLIST:
1368 			if (value != NULL && strcmp(value, "*") == 0) {
1369 				sa_free_attr_string(value);
1370 				value = NULL;
1371 			} else {
1372 				if (value != NULL)
1373 					len += 1 + strlen(value);
1374 			}
1375 			break;
1376 		case OPT_TYPE_LOGTAG:
1377 			if (value != NULL && strlen(value) == 0) {
1378 				sa_free_attr_string(value);
1379 				value = NULL;
1380 			} else {
1381 				if (value != NULL)
1382 					len += 1 + strlen(value);
1383 			}
1384 			break;
1385 		default:
1386 			if (value != NULL)
1387 				len += 1 + strlen(value);
1388 			break;
1389 		}
1390 		while (buffsize <= (curlen + len)) {
1391 			/* need more room */
1392 			buffsize += incr;
1393 			buff = realloc(buff, buffsize);
1394 			if (buff == NULL) {
1395 				/* realloc failed so free everything */
1396 				if (*rbuff != NULL)
1397 					free(*rbuff);
1398 			}
1399 			*rbuff = buff;
1400 			*rbuffsize = buffsize;
1401 			if (buff == NULL)
1402 				goto skip;
1403 
1404 		}
1405 
1406 		if (buff == NULL)
1407 			goto skip;
1408 
1409 		if (value == NULL) {
1410 			(void) snprintf(buff + curlen, buffsize - curlen,
1411 			    "%s%s", sep ? "," : "", name);
1412 		} else {
1413 			(void) snprintf(buff + curlen, buffsize - curlen,
1414 			    "%s%s=%s", sep ? "," : "",
1415 			    name, value != NULL ? value : "");
1416 		}
1417 		printed = B_TRUE;
1418 	}
1419 skip:
1420 	if (name != NULL)
1421 		sa_free_attr_string(name);
1422 	if (value != NULL)
1423 		sa_free_attr_string(value);
1424 	return (printed);
1425 }
1426 
1427 /*
1428  * nfs_format_options(group, hier)
1429  *
1430  * format all the options on the group into an old-style option
1431  * string. If hier is non-zero, walk up the tree to get inherited
1432  * options.
1433  */
1434 
1435 static char *
nfs_format_options(sa_group_t group,int hier)1436 nfs_format_options(sa_group_t group, int hier)
1437 {
1438 	sa_optionset_t options = NULL;
1439 	sa_optionset_t secoptions = NULL;
1440 	sa_property_t prop, secprop;
1441 	sa_security_t security = NULL;
1442 	char *buff;
1443 	size_t buffsize;
1444 	char *sectype = NULL;
1445 	int sep = 0;
1446 
1447 
1448 	buff = malloc(OPT_CHUNK);
1449 	if (buff == NULL) {
1450 		return (NULL);
1451 	}
1452 
1453 	buff[0] = '\0';
1454 	buffsize = OPT_CHUNK;
1455 
1456 	/*
1457 	 * We may have a an optionset relative to this item. format
1458 	 * these if we find them and then add any security definitions.
1459 	 */
1460 
1461 	options = sa_get_derived_optionset(group, "nfs", hier);
1462 
1463 	/*
1464 	 * do the default set first but skip any option that is also
1465 	 * in the protocol specific optionset.
1466 	 */
1467 	if (options != NULL) {
1468 		for (prop = sa_get_property(options, NULL);
1469 		    prop != NULL; prop = sa_get_next_property(prop)) {
1470 			/*
1471 			 * use this one since we skipped any
1472 			 * of these that were also in
1473 			 * optdefault
1474 			 */
1475 			if (nfs_sprint_option(&buff, &buffsize, OPT_CHUNK,
1476 			    prop, sep))
1477 				sep = 1;
1478 			if (buff == NULL) {
1479 				/*
1480 				 * buff could become NULL if there
1481 				 * isn't enough memory for
1482 				 * nfs_sprint_option to realloc()
1483 				 * as necessary. We can't really
1484 				 * do anything about it at this
1485 				 * point so we return NULL.  The
1486 				 * caller should handle the
1487 				 * failure.
1488 				 */
1489 				if (options != NULL)
1490 					sa_free_derived_optionset(
1491 					    options);
1492 				return (buff);
1493 			}
1494 		}
1495 	}
1496 	secoptions = (sa_optionset_t)sa_get_all_security_types(group,
1497 	    "nfs", hier);
1498 	if (secoptions != NULL) {
1499 		for (secprop = sa_get_property(secoptions, NULL);
1500 		    secprop != NULL;
1501 		    secprop = sa_get_next_property(secprop)) {
1502 			sectype = sa_get_property_attr(secprop, "type");
1503 			security =
1504 			    (sa_security_t)sa_get_derived_security(
1505 			    group, sectype, "nfs", hier);
1506 			if (security != NULL) {
1507 				if (sectype != NULL) {
1508 					prop = sa_create_property(
1509 					    "sec", sectype);
1510 					if (prop == NULL)
1511 						goto err;
1512 					if (nfs_sprint_option(&buff,
1513 					    &buffsize, OPT_CHUNK, prop, sep))
1514 						sep = 1;
1515 					(void) sa_remove_property(prop);
1516 					if (buff == NULL)
1517 						goto err;
1518 				}
1519 				for (prop = sa_get_property(security,
1520 				    NULL); prop != NULL;
1521 				    prop = sa_get_next_property(prop)) {
1522 					if (nfs_sprint_option(&buff,
1523 					    &buffsize, OPT_CHUNK, prop, sep))
1524 						sep = 1;
1525 					if (buff == NULL)
1526 						goto err;
1527 				}
1528 				sa_free_derived_optionset(security);
1529 			}
1530 			if (sectype != NULL)
1531 				sa_free_attr_string(sectype);
1532 		}
1533 		sa_free_derived_optionset(secoptions);
1534 	}
1535 
1536 	if (options != NULL)
1537 		sa_free_derived_optionset(options);
1538 	return (buff);
1539 
1540 err:
1541 	/*
1542 	 * If we couldn't allocate memory for option printing, we need
1543 	 * to break out of the nested loops, cleanup and return NULL.
1544 	 */
1545 	if (secoptions != NULL)
1546 		sa_free_derived_optionset(secoptions);
1547 	if (security != NULL)
1548 		sa_free_derived_optionset(security);
1549 	if (sectype != NULL)
1550 		sa_free_attr_string(sectype);
1551 	if (options != NULL)
1552 		sa_free_derived_optionset(options);
1553 	return (buff);
1554 }
1555 
1556 /*
1557  * Append an entry to the nfslogtab file
1558  */
1559 static int
nfslogtab_add(dir,buffer,tag)1560 nfslogtab_add(dir, buffer, tag)
1561 	char *dir, *buffer, *tag;
1562 {
1563 	FILE *f;
1564 	struct logtab_ent lep;
1565 	int error = 0;
1566 
1567 	/*
1568 	 * Open the file for update and create it if necessary.
1569 	 * This may leave the I/O offset at the end of the file,
1570 	 * so rewind back to the beginning of the file.
1571 	 */
1572 	f = fopen(NFSLOGTAB, "a+");
1573 	if (f == NULL) {
1574 		error = errno;
1575 		goto out;
1576 	}
1577 	rewind(f);
1578 
1579 	if (lockf(fileno(f), F_LOCK, 0L) < 0) {
1580 		(void) fprintf(stderr, dgettext(TEXT_DOMAIN,
1581 		    "share complete, however failed to lock %s "
1582 		    "for update: %s\n"), NFSLOGTAB, strerror(errno));
1583 		error = -1;
1584 		goto out;
1585 	}
1586 
1587 	if (logtab_deactivate_after_boot(f) == -1) {
1588 		(void) fprintf(stderr, dgettext(TEXT_DOMAIN,
1589 		    "share complete, however could not deactivate "
1590 		    "entries in %s\n"), NFSLOGTAB);
1591 		error = -1;
1592 		goto out;
1593 	}
1594 
1595 	/*
1596 	 * Remove entries matching buffer and sharepoint since we're
1597 	 * going to replace it with perhaps an entry with a new tag.
1598 	 */
1599 	if (logtab_rement(f, buffer, dir, NULL, -1)) {
1600 		(void) fprintf(stderr, dgettext(TEXT_DOMAIN,
1601 		    "share complete, however could not remove matching "
1602 		    "entries in %s\n"), NFSLOGTAB);
1603 		error = -1;
1604 		goto out;
1605 	}
1606 
1607 	/*
1608 	 * Deactivate all active entries matching this sharepoint
1609 	 */
1610 	if (logtab_deactivate(f, NULL, dir, NULL)) {
1611 		(void) fprintf(stderr, dgettext(TEXT_DOMAIN,
1612 		    "share complete, however could not deactivate matching "
1613 		    "entries in %s\n"), NFSLOGTAB);
1614 		error = -1;
1615 		goto out;
1616 	}
1617 
1618 	lep.le_buffer = buffer;
1619 	lep.le_path = dir;
1620 	lep.le_tag = tag;
1621 	lep.le_state = LES_ACTIVE;
1622 
1623 	/*
1624 	 * Add new sharepoint / buffer location to nfslogtab
1625 	 */
1626 	if (logtab_putent(f, &lep) < 0) {
1627 		(void) fprintf(stderr, dgettext(TEXT_DOMAIN,
1628 		    "share complete, however could not add %s to %s\n"),
1629 		    dir, NFSLOGTAB);
1630 		error = -1;
1631 	}
1632 
1633 out:
1634 	if (f != NULL)
1635 		(void) fclose(f);
1636 	return (error);
1637 }
1638 
1639 /*
1640  * Deactivate an entry from the nfslogtab file
1641  */
1642 static int
nfslogtab_deactivate(path)1643 nfslogtab_deactivate(path)
1644 	char *path;
1645 {
1646 	FILE *f;
1647 	int error = 0;
1648 
1649 	f = fopen(NFSLOGTAB, "r+");
1650 	if (f == NULL) {
1651 		error = errno;
1652 		goto out;
1653 	}
1654 	if (lockf(fileno(f), F_LOCK, 0L) < 0) {
1655 		error = errno;
1656 		(void)  fprintf(stderr, dgettext(TEXT_DOMAIN,
1657 		    "share complete, however could not lock %s for "
1658 		    "update: %s\n"), NFSLOGTAB, strerror(error));
1659 		goto out;
1660 	}
1661 	if (logtab_deactivate(f, NULL, path, NULL) == -1) {
1662 		error = -1;
1663 		(void) fprintf(stderr,
1664 		    dgettext(TEXT_DOMAIN,
1665 		    "share complete, however could not "
1666 		    "deactivate %s in %s\n"), path, NFSLOGTAB);
1667 		goto out;
1668 	}
1669 
1670 out:	if (f != NULL)
1671 		(void) fclose(f);
1672 
1673 	return (error);
1674 }
1675 
1676 /*
1677  * check_public(group, skipshare)
1678  *
1679  * Check the group for any shares that have the public property
1680  * enabled. We skip "skipshare" since that is the one we are
1681  * working with. This is a separate function to make handling
1682  * subgroups simpler. Returns true if there is a share with public.
1683  */
1684 static int
check_public(sa_group_t group,sa_share_t skipshare)1685 check_public(sa_group_t group, sa_share_t skipshare)
1686 {
1687 	int exists = B_FALSE;
1688 	sa_share_t share;
1689 	sa_optionset_t opt;
1690 	sa_property_t prop;
1691 	char *shared;
1692 
1693 	for (share = sa_get_share(group, NULL); share != NULL;
1694 	    share = sa_get_next_share(share)) {
1695 		if (share == skipshare)
1696 			continue;
1697 
1698 		opt = sa_get_optionset(share, "nfs");
1699 		if (opt == NULL)
1700 			continue;
1701 		prop = sa_get_property(opt, "public");
1702 		if (prop == NULL)
1703 			continue;
1704 		shared = sa_get_share_attr(share, "shared");
1705 		if (shared != NULL) {
1706 			exists = strcmp(shared, "true") == 0;
1707 			sa_free_attr_string(shared);
1708 			if (exists == B_TRUE)
1709 				break;
1710 		}
1711 	}
1712 
1713 	return (exists);
1714 }
1715 
1716 /*
1717  * public_exists(handle, skipshare)
1718  *
1719  * check to see if public option is set on any other share than the
1720  * one specified. Need to check zfs sub-groups as well as the top
1721  * level groups.
1722  */
1723 static int
public_exists(sa_handle_t handle,sa_share_t skipshare)1724 public_exists(sa_handle_t handle, sa_share_t skipshare)
1725 {
1726 	sa_group_t group = NULL;
1727 
1728 	/*
1729 	 * If we don't have a handle, we can only do syntax check. We
1730 	 * can't check against other shares so we assume OK and will
1731 	 * catch the problem only when we actually try to apply it.
1732 	 */
1733 	if (handle == NULL)
1734 		return (SA_OK);
1735 
1736 	if (skipshare != NULL) {
1737 		group = sa_get_parent_group(skipshare);
1738 		if (group == NULL)
1739 			return (SA_NO_SUCH_GROUP);
1740 	}
1741 
1742 	for (group = sa_get_group(handle, NULL); group != NULL;
1743 	    group = sa_get_next_group(group)) {
1744 		/* Walk any ZFS subgroups as well as all standard groups */
1745 		if (sa_group_is_zfs(group)) {
1746 			sa_group_t subgroup;
1747 			for (subgroup = sa_get_sub_group(group);
1748 			    subgroup != NULL;
1749 			    subgroup = sa_get_next_group(subgroup)) {
1750 				if (check_public(subgroup, skipshare))
1751 					return (B_TRUE);
1752 			}
1753 		} else {
1754 			if (check_public(group, skipshare))
1755 				return (B_TRUE);
1756 		}
1757 	}
1758 	return (B_FALSE);
1759 }
1760 
1761 /*
1762  * sa_enable_share at the protocol level, enable_share must tell the
1763  * implementation that it is to enable the share. This entails
1764  * converting the path and options into the appropriate ioctl
1765  * calls. It is assumed that all error checking of paths, etc. were
1766  * done earlier.
1767  */
1768 static int
nfs_enable_share(sa_share_t share)1769 nfs_enable_share(sa_share_t share)
1770 {
1771 	struct exportdata export;
1772 	sa_optionset_t secoptlist;
1773 	struct secinfo *sp;
1774 	int num_secinfo;
1775 	sa_optionset_t opt;
1776 	sa_security_t sec;
1777 	sa_property_t prop;
1778 	char *path;
1779 	int err = SA_OK;
1780 	int i;
1781 	int iszfs;
1782 	sa_handle_t handle;
1783 
1784 	/* Don't drop core if the NFS module isn't loaded. */
1785 	(void) signal(SIGSYS, SIG_IGN);
1786 
1787 	/* get the path since it is important in several places */
1788 	path = sa_get_share_attr(share, "path");
1789 	if (path == NULL)
1790 		return (SA_NO_SUCH_PATH);
1791 
1792 	iszfs = sa_path_is_zfs(path);
1793 	/*
1794 	 * find the optionsets and security sets.  There may not be
1795 	 * any or there could be one or two for each of optionset and
1796 	 * security may have multiple, one per security type per
1797 	 * protocol type.
1798 	 */
1799 	opt = sa_get_derived_optionset(share, "nfs", 1);
1800 	secoptlist = (sa_optionset_t)sa_get_all_security_types(share, "nfs", 1);
1801 	if (secoptlist != NULL)
1802 		num_secinfo = MAX(1, count_security(secoptlist));
1803 	else
1804 		num_secinfo = 1;
1805 
1806 	/*
1807 	 * walk through the options and fill in the structure
1808 	 * appropriately.
1809 	 */
1810 
1811 	(void) memset(&export, '\0', sizeof (export));
1812 
1813 	/*
1814 	 * do non-security options first since there is only one after
1815 	 * the derived group is constructed.
1816 	 */
1817 	export.ex_version = EX_CURRENT_VERSION;
1818 	export.ex_anon = UID_NOBODY; /* this is our default value */
1819 	export.ex_index = NULL;
1820 	export.ex_path = path;
1821 	export.ex_pathlen = strlen(path) + 1;
1822 
1823 	if (opt != NULL)
1824 		err = fill_export_from_optionset(&export, opt);
1825 
1826 	/*
1827 	 * check to see if "public" is set. If it is, then make sure
1828 	 * no other share has it set. If it is already used, fail.
1829 	 */
1830 
1831 	handle = sa_find_group_handle((sa_group_t)share);
1832 	if (export.ex_flags & EX_PUBLIC && public_exists(handle, share)) {
1833 		(void) printf(dgettext(TEXT_DOMAIN,
1834 		    "NFS: Cannot share more than one file "
1835 		    "system with 'public' property\n"));
1836 		err = SA_NOT_ALLOWED;
1837 		goto out;
1838 	}
1839 
1840 	sp = calloc(num_secinfo, sizeof (struct secinfo));
1841 	if (sp == NULL) {
1842 		err = SA_NO_MEMORY;
1843 		(void) printf(dgettext(TEXT_DOMAIN,
1844 		    "NFS: NFS: no memory for security\n"));
1845 		goto out;
1846 	}
1847 	export.ex_secinfo = sp;
1848 	/* get default secinfo */
1849 	export.ex_seccnt = num_secinfo;
1850 	/*
1851 	 * since we must have one security option defined, we
1852 	 * init to the default and then override as we find
1853 	 * defined security options. This handles the case
1854 	 * where we have no defined options but we need to set
1855 	 * up one.
1856 	 */
1857 	sp[0].s_window = DEF_WIN;
1858 	sp[0].s_rootnames = NULL;
1859 	/* setup a default in case no properties defined */
1860 	if (nfs_getseconfig_default(&sp[0].s_secinfo)) {
1861 		(void) printf(dgettext(TEXT_DOMAIN,
1862 		    "NFS: nfs_getseconfig_default: failed to "
1863 		    "get default security mode\n"));
1864 		err = SA_CONFIG_ERR;
1865 	}
1866 	if (secoptlist != NULL) {
1867 		for (i = 0, prop = sa_get_property(secoptlist, NULL);
1868 		    prop != NULL && i < num_secinfo;
1869 		    prop = sa_get_next_property(prop), i++) {
1870 			char *sectype;
1871 			sectype = sa_get_property_attr(prop, "type");
1872 			/*
1873 			 * if sectype is NULL, we probably
1874 			 * have a memory problem and can't get
1875 			 * the correct values. Rather than
1876 			 * exporting with incorrect security,
1877 			 * don't share it.
1878 			 */
1879 			if (sectype == NULL) {
1880 				err = SA_NO_MEMORY;
1881 				(void) printf(dgettext(TEXT_DOMAIN,
1882 				    "NFS: Cannot share %s: "
1883 				    "no memory\n"), path);
1884 				goto out;
1885 			}
1886 			sec = (sa_security_t)sa_get_derived_security(
1887 			    share, sectype, "nfs", 1);
1888 			sp[i].s_window = DEF_WIN;
1889 			sp[i].s_rootcnt = 0;
1890 			sp[i].s_rootnames = NULL;
1891 			(void) fill_security_from_secopts(&sp[i], sec);
1892 			if (sec != NULL)
1893 				sa_free_derived_security(sec);
1894 			if (sectype != NULL)
1895 				sa_free_attr_string(sectype);
1896 		}
1897 	}
1898 	/*
1899 	 * when we get here, we can do the exportfs system call and
1900 	 * initiate things. We probably want to enable the
1901 	 * svc:/network/nfs/server service first if it isn't running.
1902 	 */
1903 	/* check svc:/network/nfs/server status and start if needed */
1904 	/* now add the share to the internal tables */
1905 	printarg(path, &export);
1906 	/*
1907 	 * call the exportfs system call which is implemented
1908 	 * via the nfssys() call as the EXPORTFS subfunction.
1909 	 */
1910 	if (iszfs) {
1911 		struct exportfs_args ea;
1912 		share_t sh;
1913 		char *str;
1914 		priv_set_t *priv_effective;
1915 		int privileged;
1916 
1917 		/*
1918 		 * If we aren't a privileged user
1919 		 * and NFS server service isn't running
1920 		 * then print out an error message
1921 		 * and return EPERM
1922 		 */
1923 
1924 		priv_effective = priv_allocset();
1925 		(void) getppriv(PRIV_EFFECTIVE, priv_effective);
1926 
1927 		privileged = (priv_isfullset(priv_effective) == B_TRUE);
1928 		priv_freeset(priv_effective);
1929 
1930 		if (!privileged &&
1931 		    (str = smf_get_state(NFS_SERVER_SVC)) != NULL) {
1932 			err = 0;
1933 			if (strcmp(str, SCF_STATE_STRING_ONLINE) != 0) {
1934 				(void) printf(dgettext(TEXT_DOMAIN,
1935 				    "NFS: Cannot share remote "
1936 				    "filesystem: %s\n"), path);
1937 				(void) printf(dgettext(TEXT_DOMAIN,
1938 				    "NFS: Service needs to be enabled "
1939 				    "by a privileged user\n"));
1940 				err = SA_SYSTEM_ERR;
1941 				errno = EPERM;
1942 			}
1943 			free(str);
1944 		}
1945 
1946 		if (err == 0) {
1947 			ea.dname = path;
1948 			ea.uex = &export;
1949 
1950 			(void) sa_sharetab_fill_zfs(share, &sh, "nfs");
1951 			err = sa_share_zfs(share, NULL, path, &sh,
1952 			    &ea, ZFS_SHARE_NFS);
1953 			if (err != SA_OK) {
1954 				errno = err;
1955 				err = -1;
1956 			}
1957 			sa_emptyshare(&sh);
1958 		}
1959 	} else {
1960 		err = exportfs(path, &export);
1961 	}
1962 
1963 	if (err < 0) {
1964 		err = SA_SYSTEM_ERR;
1965 		switch (errno) {
1966 		case EREMOTE:
1967 			(void) printf(dgettext(TEXT_DOMAIN,
1968 			    "NFS: Cannot share filesystems "
1969 			    "in non-global zones: %s\n"), path);
1970 			err = SA_NOT_SUPPORTED;
1971 			break;
1972 		case EPERM:
1973 			if (getzoneid() != GLOBAL_ZONEID) {
1974 				(void) printf(dgettext(TEXT_DOMAIN,
1975 				    "NFS: Cannot share file systems "
1976 				    "in non-global zones: %s\n"), path);
1977 				err = SA_NOT_SUPPORTED;
1978 				break;
1979 			}
1980 			err = SA_NO_PERMISSION;
1981 			break;
1982 		case EEXIST:
1983 			err = SA_SHARE_EXISTS;
1984 			break;
1985 		default:
1986 			break;
1987 		}
1988 	} else {
1989 		/* update sharetab with an add/modify */
1990 		if (!iszfs) {
1991 			(void) sa_update_sharetab(share, "nfs");
1992 		}
1993 	}
1994 
1995 	if (err == SA_OK) {
1996 		/*
1997 		 * enable services as needed. This should probably be
1998 		 * done elsewhere in order to minimize the calls to
1999 		 * check services.
2000 		 */
2001 		/*
2002 		 * check to see if logging and other services need to
2003 		 * be triggered, but only if there wasn't an
2004 		 * error. This is probably where sharetab should be
2005 		 * updated with the NFS specific entry.
2006 		 */
2007 		if (export.ex_flags & EX_LOG) {
2008 			/* enable logging */
2009 			if (nfslogtab_add(path, export.ex_log_buffer,
2010 			    export.ex_tag) != 0) {
2011 				(void) fprintf(stderr, dgettext(TEXT_DOMAIN,
2012 				    "Could not enable logging for %s\n"),
2013 				    path);
2014 			}
2015 			_check_services(service_list_logging);
2016 		} else {
2017 			/*
2018 			 * don't have logging so remove it from file. It might
2019 			 * not be thre, but that doesn't matter.
2020 			 */
2021 			(void) nfslogtab_deactivate(path);
2022 			_check_services(service_list_default);
2023 		}
2024 	}
2025 
2026 out:
2027 	if (path != NULL)
2028 		free(path);
2029 
2030 	cleanup_export(&export);
2031 	if (opt != NULL)
2032 		sa_free_derived_optionset(opt);
2033 	if (secoptlist != NULL)
2034 		(void) sa_destroy_optionset(secoptlist);
2035 	return (err);
2036 }
2037 
2038 /*
2039  * nfs_disable_share(share, path)
2040  *
2041  * Unshare the specified share. Note that "path" is the same path as
2042  * what is in the "share" object. It is passed in to avoid an
2043  * additional lookup. A missing "path" value makes this a no-op
2044  * function.
2045  */
2046 static int
nfs_disable_share(sa_share_t share,char * path)2047 nfs_disable_share(sa_share_t share, char *path)
2048 {
2049 	int err;
2050 	int ret = SA_OK;
2051 	int iszfs;
2052 	sa_group_t parent;
2053 	sa_handle_t handle;
2054 
2055 	if (path == NULL)
2056 		return (ret);
2057 
2058 	/*
2059 	 * If the share is in a ZFS group we need to handle it
2060 	 * differently.  Just being on a ZFS file system isn't
2061 	 * enough since we may be in a legacy share case.
2062 	 */
2063 	parent = sa_get_parent_group(share);
2064 	iszfs = sa_group_is_zfs(parent);
2065 	if (iszfs) {
2066 		struct exportfs_args ea;
2067 		share_t sh = { 0 };
2068 		ea.dname = path;
2069 		ea.uex = NULL;
2070 		sh.sh_path = path;
2071 		sh.sh_fstype = "nfs";
2072 
2073 		err = sa_share_zfs(share, NULL, path, &sh,
2074 		    &ea, ZFS_UNSHARE_NFS);
2075 		if (err != SA_OK) {
2076 			errno = err;
2077 			err = -1;
2078 		}
2079 	} else {
2080 		err = exportfs(path, NULL);
2081 	}
2082 	if (err < 0) {
2083 		/*
2084 		 * TBD: only an error in some
2085 		 * cases - need better analysis
2086 		 */
2087 		switch (errno) {
2088 		case EPERM:
2089 		case EACCES:
2090 			ret = SA_NO_PERMISSION;
2091 			if (getzoneid() != GLOBAL_ZONEID) {
2092 				ret = SA_NOT_SUPPORTED;
2093 			}
2094 			break;
2095 		case EINVAL:
2096 		case ENOENT:
2097 			ret = SA_NO_SUCH_PATH;
2098 			break;
2099 		default:
2100 			ret = SA_SYSTEM_ERR;
2101 			break;
2102 		}
2103 	}
2104 	if (ret == SA_OK || ret == SA_NO_SUCH_PATH) {
2105 		handle = sa_find_group_handle((sa_group_t)share);
2106 		if (!iszfs)
2107 			(void) sa_delete_sharetab(handle, path, "nfs");
2108 		/* just in case it was logged */
2109 		(void) nfslogtab_deactivate(path);
2110 	}
2111 	return (ret);
2112 }
2113 
2114 static int
check_user(char * value)2115 check_user(char *value)
2116 {
2117 	int ret = SA_OK;
2118 
2119 	if (!is_a_number(value)) {
2120 		struct passwd *pw;
2121 		/*
2122 		 * in this case it would have to be a
2123 		 * user name
2124 		 */
2125 		pw = getpwnam(value);
2126 		if (pw == NULL)
2127 			ret = SA_BAD_VALUE;
2128 		endpwent();
2129 	} else {
2130 		uint64_t intval;
2131 		intval = strtoull(value, NULL, 0);
2132 		if (intval > UID_MAX && intval != -1)
2133 			ret = SA_BAD_VALUE;
2134 	}
2135 
2136 	return (ret);
2137 }
2138 
2139 static int
check_group(char * value)2140 check_group(char *value)
2141 {
2142 	int ret = SA_OK;
2143 
2144 	if (!is_a_number(value)) {
2145 		struct group *gr;
2146 		/*
2147 		 * in this case it would have to be a
2148 		 * group name
2149 		 */
2150 		gr = getgrnam(value);
2151 		if (gr == NULL)
2152 			ret = SA_BAD_VALUE;
2153 		endgrent();
2154 	} else {
2155 		uint64_t intval;
2156 		intval = strtoull(value, NULL, 0);
2157 		if (intval > UID_MAX && intval != -1)
2158 			ret = SA_BAD_VALUE;
2159 	}
2160 
2161 	return (ret);
2162 }
2163 
2164 /*
2165  * check_rorwnone(v1, v2, v3)
2166  *
2167  * check ro vs rw vs none values.  Over time this may get beefed up.
2168  * for now it just does simple checks. v1 is never NULL but v2 or v3
2169  * could be.
2170  */
2171 
2172 static int
check_rorwnone(char * v1,char * v2,char * v3)2173 check_rorwnone(char *v1, char *v2, char *v3)
2174 {
2175 	int ret = SA_OK;
2176 	if (v2 != NULL && strcmp(v1, v2) == 0)
2177 		ret = SA_VALUE_CONFLICT;
2178 	else if (v3 != NULL && strcmp(v1, v3) == 0)
2179 		ret = SA_VALUE_CONFLICT;
2180 
2181 	return (ret);
2182 }
2183 
2184 /*
2185  * nfs_validate_property(handle, property, parent)
2186  *
2187  * Check that the property has a legitimate value for its type.
2188  */
2189 
2190 static int
nfs_validate_property(sa_handle_t handle,sa_property_t property,sa_optionset_t parent)2191 nfs_validate_property(sa_handle_t handle, sa_property_t property,
2192     sa_optionset_t parent)
2193 {
2194 	int ret = SA_OK;
2195 	char *propname;
2196 	char *other1;
2197 	char *other2;
2198 	int optindex;
2199 	nfsl_config_t *configlist;
2200 	sa_group_t parent_group;
2201 	char *value;
2202 
2203 	propname = sa_get_property_attr(property, "type");
2204 
2205 	if ((optindex = findopt(propname)) < 0)
2206 		ret = SA_NO_SUCH_PROP;
2207 
2208 	/* need to validate value range here as well */
2209 
2210 	if (ret == SA_OK) {
2211 		parent_group = sa_get_parent_group((sa_share_t)parent);
2212 		if (optdefs[optindex].share && parent_group != NULL &&
2213 		    !sa_is_share(parent_group))
2214 			ret = SA_PROP_SHARE_ONLY;
2215 	}
2216 	if (ret == SA_OK) {
2217 		if (optdefs[optindex].index == OPT_PUBLIC) {
2218 			/*
2219 			 * Public is special in that only one instance can
2220 			 * be in the repository at the same time.
2221 			 */
2222 			if (public_exists(handle, parent_group)) {
2223 				sa_free_attr_string(propname);
2224 				return (SA_VALUE_CONFLICT);
2225 			}
2226 		}
2227 		value = sa_get_property_attr(property, "value");
2228 		if (value != NULL) {
2229 			/* first basic type checking */
2230 			switch (optdefs[optindex].type) {
2231 
2232 			case OPT_TYPE_NUMBER:
2233 				/* check that the value is all digits */
2234 				if (!is_a_number(value))
2235 					ret = SA_BAD_VALUE;
2236 				break;
2237 
2238 			case OPT_TYPE_BOOLEAN:
2239 				if (strlen(value) == 0 ||
2240 				    strcasecmp(value, "true") == 0 ||
2241 				    strcmp(value, "1") == 0 ||
2242 				    strcasecmp(value, "false") == 0 ||
2243 				    strcmp(value, "0") == 0) {
2244 					ret = SA_OK;
2245 				} else {
2246 					ret = SA_BAD_VALUE;
2247 				}
2248 				break;
2249 
2250 			case OPT_TYPE_USER:
2251 				ret = check_user(value);
2252 				break;
2253 
2254 			case OPT_TYPE_FILE:
2255 				if (strcmp(value, "..") == 0 ||
2256 				    strchr(value, '/') != NULL) {
2257 					ret = SA_BAD_VALUE;
2258 				}
2259 				break;
2260 
2261 			case OPT_TYPE_ACCLIST: {
2262 				sa_property_t oprop1;
2263 				sa_property_t oprop2;
2264 				char *ovalue1 = NULL;
2265 				char *ovalue2 = NULL;
2266 
2267 				if (parent == NULL)
2268 					break;
2269 				/*
2270 				 * access list handling. Should eventually
2271 				 * validate that all the values make sense.
2272 				 * Also, ro and rw may have cross value
2273 				 * conflicts.
2274 				 */
2275 				if (strcmp(propname, SHOPT_RO) == 0) {
2276 					other1 = SHOPT_RW;
2277 					other2 = SHOPT_NONE;
2278 				} else if (strcmp(propname, SHOPT_RW) == 0) {
2279 					other1 = SHOPT_RO;
2280 					other2 = SHOPT_NONE;
2281 				} else if (strcmp(propname, SHOPT_NONE) == 0) {
2282 					other1 = SHOPT_RO;
2283 					other2 = SHOPT_RW;
2284 				} else {
2285 					other1 = NULL;
2286 					other2 = NULL;
2287 				}
2288 				if (other1 == NULL && other2 == NULL)
2289 					break;
2290 
2291 				/* compare rw(ro) with ro(rw) */
2292 
2293 				oprop1 = sa_get_property(parent, other1);
2294 				oprop2 = sa_get_property(parent, other2);
2295 				if (oprop1 == NULL && oprop2 == NULL)
2296 					break;
2297 				/*
2298 				 * Only potential confusion if other1
2299 				 * or other2 exists. Check the values
2300 				 * and run the check if there is a
2301 				 * value other than the one we are
2302 				 * explicitly looking at.
2303 				 */
2304 				ovalue1 = sa_get_property_attr(oprop1, "value");
2305 				ovalue2 = sa_get_property_attr(oprop2, "value");
2306 				if (ovalue1 != NULL || ovalue2 != NULL)
2307 					ret = check_rorwnone(value, ovalue1,
2308 					    ovalue2);
2309 
2310 				if (ovalue1 != NULL)
2311 					sa_free_attr_string(ovalue1);
2312 				if (ovalue2 != NULL)
2313 					sa_free_attr_string(ovalue2);
2314 				break;
2315 			}
2316 
2317 			case OPT_TYPE_LOGTAG:
2318 				if (nfsl_getconfig_list(&configlist) == 0) {
2319 					int error;
2320 					if (value == NULL ||
2321 					    strlen(value) == 0) {
2322 						if (value != NULL)
2323 							sa_free_attr_string(
2324 							    value);
2325 						value = strdup("global");
2326 					}
2327 					if (value != NULL &&
2328 					    nfsl_findconfig(configlist, value,
2329 					    &error) == NULL) {
2330 						ret = SA_BAD_VALUE;
2331 					}
2332 					/* Must always free when done */
2333 					nfsl_freeconfig_list(&configlist);
2334 				} else {
2335 					ret = SA_CONFIG_ERR;
2336 				}
2337 				break;
2338 
2339 			case OPT_TYPE_STRING:
2340 				/* whatever is here should be ok */
2341 				break;
2342 
2343 			case OPT_TYPE_SECURITY:
2344 				/*
2345 				 * The "sec" property isn't used in the
2346 				 * non-legacy parts of sharemgr. We need to
2347 				 * reject it here. For legacy, it is pulled
2348 				 * out well before we get here.
2349 				 */
2350 				ret = SA_NO_SUCH_PROP;
2351 				break;
2352 
2353 			case OPT_TYPE_MAPPING: {
2354 				char *p;
2355 				char *n;
2356 				char *c;
2357 				int (*f)(char *);
2358 
2359 				sa_security_t security;
2360 
2361 				/*
2362 				 * mapping is only supported for sec=sys
2363 				 */
2364 				ret = SA_CONFIG_ERR;
2365 				if (parent_group == NULL)
2366 					break;
2367 
2368 				for (security = sa_get_security(parent_group,
2369 				    NULL, NULL); security != NULL;
2370 				    security = sa_get_next_security(security)) {
2371 					char *type;
2372 					char *sectype;
2373 
2374 					type = sa_get_security_attr(security,
2375 					    "type");
2376 					if (type == NULL)
2377 						continue;
2378 
2379 					if (strcmp(type, "nfs") != 0) {
2380 						sa_free_attr_string(type);
2381 						continue;
2382 					}
2383 					sa_free_attr_string(type);
2384 
2385 					sectype = sa_get_security_attr(security,
2386 					    "sectype");
2387 					if (sectype == NULL)
2388 						continue;
2389 
2390 					if (strcmp(sectype, "sys") != 0) {
2391 						sa_free_attr_string(sectype);
2392 						ret = SA_CONFIG_ERR;
2393 						break;
2394 					}
2395 					sa_free_attr_string(sectype);
2396 					ret = SA_OK;
2397 				}
2398 
2399 				if (ret != SA_OK)
2400 					break;
2401 
2402 				assert(optindex == OPT_UIDMAP ||
2403 				    optindex == OPT_GIDMAP);
2404 				f = optindex == OPT_UIDMAP ? check_user :
2405 				    check_group;
2406 
2407 
2408 				p = strdup(value);
2409 				if (p == NULL)
2410 					ret = SA_BAD_VALUE;
2411 
2412 				for (c = p; ret == SA_OK && c != NULL; c = n) {
2413 					char *s;
2414 					char *t;
2415 
2416 					n = strchr(c, '~');
2417 					if (n != NULL)
2418 						*n++ = '\0';
2419 
2420 					s = strchr(c, ':');
2421 					if (s != NULL) {
2422 						*s++ = '\0';
2423 						t = strchr(s, ':');
2424 						if (t != NULL)
2425 							*t = '\0';
2426 					}
2427 
2428 					if (s == NULL || t == NULL)
2429 						ret = SA_BAD_VALUE;
2430 
2431 					if (ret == SA_OK && *c != '\0' &&
2432 					    strcmp(c, "*") != 0)
2433 						ret = f(c);
2434 
2435 					if (ret == SA_OK && *s != '\0' &&
2436 					    strcmp(s, "-1") != 0)
2437 						ret = f(s);
2438 				}
2439 
2440 				free(p);
2441 
2442 				break;
2443 			}
2444 
2445 			default:
2446 				break;
2447 			}
2448 
2449 			if (value != NULL)
2450 				sa_free_attr_string(value);
2451 
2452 			if (ret == SA_OK && optdefs[optindex].check != NULL) {
2453 				/* do the property specific check */
2454 				ret = optdefs[optindex].check(handle, property);
2455 			}
2456 		}
2457 	}
2458 
2459 	if (propname != NULL)
2460 		sa_free_attr_string(propname);
2461 	return (ret);
2462 }
2463 
2464 /*
2465  * Protocol management functions
2466  *
2467  * Properties defined in the default files are defined in
2468  * proto_option_defs for parsing and validation. If "other" and
2469  * "compare" are set, then the value for this property should be
2470  * compared against the property specified in "other" using the
2471  * "compare" check (either <= or >=) in order to ensure that the
2472  * values are in the correct range.  E.g. setting server_versmin
2473  * higher than server_versmax should not be allowed.
2474  */
2475 
2476 struct proto_option_defs {
2477 	char *tag;
2478 	char *name;	/* display name -- remove protocol identifier */
2479 	int index;
2480 	int type;
2481 	union {
2482 	    int intval;
2483 	    char *string;
2484 	} defvalue;
2485 	uint32_t svcs;
2486 	int32_t minval;
2487 	int32_t maxval;
2488 	char *other;
2489 	int compare;
2490 #define	OPT_CMP_GE	0
2491 #define	OPT_CMP_LE	1
2492 	int (*check)(char *);
2493 } proto_options[] = {
2494 #define	PROTO_OPT_NFSD_SERVERS			0
2495 	{"nfsd_servers",
2496 	    "servers", PROTO_OPT_NFSD_SERVERS, OPT_TYPE_NUMBER, 16, SVC_NFSD,
2497 	    1, INT32_MAX},
2498 #define	PROTO_OPT_LOCKD_LISTEN_BACKLOG		1
2499 	{"lockd_listen_backlog",
2500 	    "lockd_listen_backlog", PROTO_OPT_LOCKD_LISTEN_BACKLOG,
2501 	    OPT_TYPE_NUMBER, 32, SVC_LOCKD, 32, INT32_MAX},
2502 #define	PROTO_OPT_LOCKD_SERVERS			2
2503 	{"lockd_servers",
2504 	    "lockd_servers", PROTO_OPT_LOCKD_SERVERS, OPT_TYPE_NUMBER, 20,
2505 	    SVC_LOCKD, 1, INT32_MAX},
2506 #define	PROTO_OPT_LOCKD_RETRANSMIT_TIMEOUT	3
2507 	{"lockd_retransmit_timeout",
2508 	    "lockd_retransmit_timeout", PROTO_OPT_LOCKD_RETRANSMIT_TIMEOUT,
2509 	    OPT_TYPE_NUMBER, 5, SVC_LOCKD, 0, INT32_MAX},
2510 #define	PROTO_OPT_GRACE_PERIOD			4
2511 	{"grace_period",
2512 	    "grace_period", PROTO_OPT_GRACE_PERIOD, OPT_TYPE_NUMBER, 90,
2513 	    SVC_LOCKD, 0, INT32_MAX},
2514 #define	PROTO_OPT_NFS_SERVER_VERSMIN		5
2515 	{"nfs_server_versmin",
2516 	    "server_versmin", PROTO_OPT_NFS_SERVER_VERSMIN, OPT_TYPE_NUMBER,
2517 	    (int)NFS_VERSMIN_DEFAULT, SVC_NFSD|SVC_MOUNTD, NFS_VERSMIN,
2518 	    NFS_VERSMAX, "server_versmax", OPT_CMP_LE},
2519 #define	PROTO_OPT_NFS_SERVER_VERSMAX		6
2520 	{"nfs_server_versmax",
2521 	    "server_versmax", PROTO_OPT_NFS_SERVER_VERSMAX, OPT_TYPE_NUMBER,
2522 	    (int)NFS_VERSMAX_DEFAULT, SVC_NFSD|SVC_MOUNTD, NFS_VERSMIN,
2523 	    NFS_VERSMAX, "server_versmin", OPT_CMP_GE},
2524 #define	PROTO_OPT_NFS_CLIENT_VERSMIN		7
2525 	{"nfs_client_versmin",
2526 	    "client_versmin", PROTO_OPT_NFS_CLIENT_VERSMIN, OPT_TYPE_NUMBER,
2527 	    (int)NFS_VERSMIN_DEFAULT, SVC_CLIENT, NFS_VERSMIN, NFS_VERSMAX,
2528 	    "client_versmax", OPT_CMP_LE},
2529 #define	PROTO_OPT_NFS_CLIENT_VERSMAX		8
2530 	{"nfs_client_versmax",
2531 	    "client_versmax", PROTO_OPT_NFS_CLIENT_VERSMAX, OPT_TYPE_NUMBER,
2532 	    (int)NFS_VERSMAX_DEFAULT, SVC_CLIENT, NFS_VERSMIN, NFS_VERSMAX,
2533 	    "client_versmin", OPT_CMP_GE},
2534 #define	PROTO_OPT_NFS_SERVER_DELEGATION		9
2535 	{"nfs_server_delegation",
2536 	    "server_delegation", PROTO_OPT_NFS_SERVER_DELEGATION,
2537 	    OPT_TYPE_ONOFF, NFS_SERVER_DELEGATION_DEFAULT, SVC_NFSD, 0, 0},
2538 #define	PROTO_OPT_NFSMAPID_DOMAIN		10
2539 	{"nfsmapid_domain",
2540 	    "nfsmapid_domain", PROTO_OPT_NFSMAPID_DOMAIN, OPT_TYPE_DOMAIN,
2541 	    NULL, SVC_NFSMAPID, 0, 0},
2542 #define	PROTO_OPT_NFSD_MAX_CONNECTIONS		11
2543 	{"nfsd_max_connections",
2544 	    "max_connections", PROTO_OPT_NFSD_MAX_CONNECTIONS,
2545 	    OPT_TYPE_NUMBER, -1, SVC_NFSD, -1, INT32_MAX},
2546 #define	PROTO_OPT_NFSD_PROTOCOL			12
2547 	{"nfsd_protocol",
2548 	    "protocol", PROTO_OPT_NFSD_PROTOCOL, OPT_TYPE_PROTOCOL, 0,
2549 	    SVC_NFSD, 0, 0},
2550 #define	PROTO_OPT_NFSD_LISTEN_BACKLOG		13
2551 	{"nfsd_listen_backlog",
2552 	    "listen_backlog", PROTO_OPT_NFSD_LISTEN_BACKLOG,
2553 	    OPT_TYPE_NUMBER, 0, SVC_NFSD, 0, INT32_MAX},
2554 #define	PROTO_OPT_NFSD_DEVICE			14
2555 	{"nfsd_device",
2556 	    "device", PROTO_OPT_NFSD_DEVICE,
2557 	    OPT_TYPE_STRING, NULL, SVC_NFSD, 0, 0},
2558 #define	PROTO_OPT_MOUNTD_LISTEN_BACKLOG		15
2559 	{"mountd_listen_backlog",
2560 	    "mountd_listen_backlog", PROTO_OPT_MOUNTD_LISTEN_BACKLOG,
2561 	    OPT_TYPE_NUMBER, 64, SVC_NFSD|SVC_MOUNTD, 1, INT32_MAX},
2562 #define	PROTO_OPT_MOUNTD_MAX_THREADS		16
2563 	{"mountd_max_threads",
2564 	    "mountd_max_threads", PROTO_OPT_MOUNTD_MAX_THREADS,
2565 	    OPT_TYPE_NUMBER, 16, SVC_NFSD|SVC_MOUNTD, 1, INT32_MAX},
2566 	{NULL}
2567 };
2568 
2569 /*
2570  * the protoset holds the defined options so we don't have to read
2571  * them multiple times
2572  */
2573 static sa_protocol_properties_t protoset;
2574 
2575 static int
findprotoopt(char * name,int whichname)2576 findprotoopt(char *name, int whichname)
2577 {
2578 	int i;
2579 	for (i = 0; proto_options[i].tag != NULL; i++) {
2580 		if (whichname == 1) {
2581 			if (strcasecmp(proto_options[i].name, name) == 0)
2582 			return (i);
2583 		} else {
2584 			if (strcasecmp(proto_options[i].tag, name) == 0)
2585 				return (i);
2586 		}
2587 	}
2588 	return (-1);
2589 }
2590 
2591 /*
2592  * fixcaselower(str)
2593  *
2594  * convert a string to lower case (inplace).
2595  */
2596 
2597 static void
fixcaselower(char * str)2598 fixcaselower(char *str)
2599 {
2600 	while (*str) {
2601 		*str = tolower(*str);
2602 		str++;
2603 	}
2604 }
2605 
2606 /*
2607  * skipwhitespace(str)
2608  *
2609  * Skip leading white space. It is assumed that it is called with a
2610  * valid pointer.
2611  */
2612 
2613 static char *
skipwhitespace(char * str)2614 skipwhitespace(char *str)
2615 {
2616 	while (*str && isspace(*str))
2617 		str++;
2618 
2619 	return (str);
2620 }
2621 
2622 /*
2623  * extractprop()
2624  *
2625  * Extract the property and value out of the line and create the
2626  * property in the optionset.
2627  */
2628 static int
extractprop(char * name,char * value)2629 extractprop(char *name, char *value)
2630 {
2631 	sa_property_t prop;
2632 	int index;
2633 	int ret = SA_OK;
2634 	/*
2635 	 * Remove any leading
2636 	 * white space.
2637 	 */
2638 	name = skipwhitespace(name);
2639 
2640 	index = findprotoopt(name, 1);
2641 	if (index >= 0) {
2642 		fixcaselower(name);
2643 		prop = sa_create_property(proto_options[index].name, value);
2644 		if (prop != NULL)
2645 			ret = sa_add_protocol_property(protoset, prop);
2646 		else
2647 			ret = SA_NO_MEMORY;
2648 	}
2649 	return (ret);
2650 }
2651 
2652 scf_type_t
getscftype(int type)2653 getscftype(int type)
2654 {
2655 	scf_type_t ret;
2656 
2657 	switch (type) {
2658 	case OPT_TYPE_NUMBER:
2659 		ret = SCF_TYPE_INTEGER;
2660 	break;
2661 	case OPT_TYPE_BOOLEAN:
2662 		ret = SCF_TYPE_BOOLEAN;
2663 	break;
2664 	default:
2665 		ret = SCF_TYPE_ASTRING;
2666 	}
2667 	return (ret);
2668 }
2669 
2670 char *
getsvcname(uint32_t svcs)2671 getsvcname(uint32_t svcs)
2672 {
2673 	char *service;
2674 	switch (svcs) {
2675 		case SVC_LOCKD:
2676 			service = LOCKD;
2677 			break;
2678 		case SVC_STATD:
2679 			service = STATD;
2680 			break;
2681 		case SVC_NFSD:
2682 			service = NFSD;
2683 			break;
2684 		case SVC_CLIENT:
2685 			service = NFS_CLIENT_SVC;
2686 			break;
2687 		case SVC_NFS4CBD:
2688 			service = NFS4CBD;
2689 			break;
2690 		case SVC_NFSMAPID:
2691 			service = NFSMAPID;
2692 			break;
2693 		case SVC_RQUOTAD:
2694 			service = RQUOTAD;
2695 			break;
2696 		case SVC_NFSLOGD:
2697 			service = NFSLOGD;
2698 			break;
2699 		case SVC_REPARSED:
2700 			service = REPARSED;
2701 			break;
2702 		default:
2703 			service = NFSD;
2704 	}
2705 	return (service);
2706 }
2707 
2708 /*
2709  * initprotofromsmf()
2710  *
2711  * Read NFS SMF properties and add the defined values to the
2712  * protoset.  Note that default values are known from the built in
2713  * table in case SMF doesn't have a definition. Not having
2714  * SMF properties is OK since we have builtin default
2715  * values.
2716  */
2717 static int
initprotofromsmf()2718 initprotofromsmf()
2719 {
2720 	char name[PATH_MAX];
2721 	char value[PATH_MAX];
2722 	int ret = SA_OK, bufsz = 0, i;
2723 
2724 	protoset = sa_create_protocol_properties("nfs");
2725 	if (protoset != NULL) {
2726 		for (i = 0; proto_options[i].tag != NULL; i++) {
2727 			scf_type_t ptype;
2728 			char *svc_name;
2729 
2730 			bzero(value, PATH_MAX);
2731 			(void) strncpy(name, proto_options[i].name, PATH_MAX);
2732 			/* Replace NULL with the correct instance */
2733 			ptype = getscftype(proto_options[i].type);
2734 			svc_name = getsvcname(proto_options[i].svcs);
2735 			bufsz = PATH_MAX;
2736 			ret = nfs_smf_get_prop(name, value,
2737 			    (char *)DEFAULT_INSTANCE, ptype,
2738 			    svc_name, &bufsz);
2739 			if (ret == SA_OK) {
2740 				ret = extractprop(name, value);
2741 			}
2742 		}
2743 	} else {
2744 		ret = SA_NO_MEMORY;
2745 	}
2746 
2747 	return (ret);
2748 }
2749 
2750 /*
2751  * add_defaults()
2752  *
2753  * Add the default values for any property not defined
2754  * in NFS SMF repository.
2755  * Values are set according to their defined types.
2756  */
2757 
2758 static void
add_defaults()2759 add_defaults()
2760 {
2761 	int i;
2762 	char number[MAXDIGITS];
2763 
2764 	for (i = 0; proto_options[i].tag != NULL; i++) {
2765 		sa_property_t prop;
2766 		prop = sa_get_protocol_property(protoset,
2767 		    proto_options[i].name);
2768 		if (prop == NULL) {
2769 			/* add the default value */
2770 			switch (proto_options[i].type) {
2771 			case OPT_TYPE_NUMBER:
2772 				(void) snprintf(number, sizeof (number), "%d",
2773 				    proto_options[i].defvalue.intval);
2774 				prop = sa_create_property(proto_options[i].name,
2775 				    number);
2776 				break;
2777 
2778 			case OPT_TYPE_BOOLEAN:
2779 				prop = sa_create_property(proto_options[i].name,
2780 				    proto_options[i].defvalue.intval ?
2781 				    "true" : "false");
2782 				break;
2783 
2784 			case OPT_TYPE_ONOFF:
2785 				prop = sa_create_property(proto_options[i].name,
2786 				    proto_options[i].defvalue.intval ?
2787 				    "on" : "off");
2788 				break;
2789 
2790 			default:
2791 				/* treat as strings of zero length */
2792 				prop = sa_create_property(proto_options[i].name,
2793 				    "");
2794 				break;
2795 			}
2796 			if (prop != NULL)
2797 				(void) sa_add_protocol_property(protoset, prop);
2798 		}
2799 	}
2800 }
2801 
2802 static void
free_protoprops()2803 free_protoprops()
2804 {
2805 	if (protoset != NULL) {
2806 		xmlFreeNode(protoset);
2807 		protoset = NULL;
2808 	}
2809 }
2810 
2811 /*
2812  * nfs_init()
2813  *
2814  * Initialize the NFS plugin.
2815  */
2816 
2817 static int
nfs_init()2818 nfs_init()
2819 {
2820 	int ret = SA_OK;
2821 
2822 	if (sa_plugin_ops.sa_init != nfs_init) {
2823 		(void) printf(dgettext(TEXT_DOMAIN,
2824 		    "NFS plugin not properly initialized\n"));
2825 		return (SA_CONFIG_ERR);
2826 	}
2827 
2828 	ret = initprotofromsmf();
2829 	if (ret != SA_OK) {
2830 		(void) printf(dgettext(TEXT_DOMAIN,
2831 		    "NFS plugin problem with SMF repository: %s\n"),
2832 		    sa_errorstr(ret));
2833 		ret = SA_OK;
2834 	}
2835 	add_defaults();
2836 
2837 	return (ret);
2838 }
2839 
2840 /*
2841  * nfs_fini()
2842  *
2843  * uninitialize the NFS plugin. Want to avoid memory leaks.
2844  */
2845 
2846 static void
nfs_fini()2847 nfs_fini()
2848 {
2849 	free_protoprops();
2850 }
2851 
2852 /*
2853  * nfs_get_proto_set()
2854  *
2855  * Return an optionset with all the protocol specific properties in
2856  * it.
2857  */
2858 
2859 static sa_protocol_properties_t
nfs_get_proto_set()2860 nfs_get_proto_set()
2861 {
2862 	return (protoset);
2863 }
2864 
2865 /*
2866  * service_in_state(service, chkstate)
2867  *
2868  * Want to know if the specified service is in the desired state
2869  * (chkstate) or not. Return true (1) if it is and false (0) if it
2870  * isn't.
2871  */
2872 static int
service_in_state(char * service,const char * chkstate)2873 service_in_state(char *service, const char *chkstate)
2874 {
2875 	char *state;
2876 	int ret = B_FALSE;
2877 
2878 	state = smf_get_state(service);
2879 	if (state != NULL) {
2880 		/* got the state so get the equality for the return value */
2881 		ret = strcmp(state, chkstate) == 0 ? B_TRUE : B_FALSE;
2882 		free(state);
2883 	}
2884 	return (ret);
2885 }
2886 
2887 /*
2888  * restart_service(svcs)
2889  *
2890  * Walk through the bit mask of services that need to be restarted in
2891  * order to use the new property values. Some properties affect
2892  * multiple daemons. Should only restart a service if it is currently
2893  * enabled (online).
2894  */
2895 
2896 static void
restart_service(uint32_t svcs)2897 restart_service(uint32_t svcs)
2898 {
2899 	uint32_t mask;
2900 	int ret;
2901 	char *service;
2902 
2903 	for (mask = 1; svcs != 0; mask <<= 1) {
2904 		switch (svcs & mask) {
2905 		case SVC_LOCKD:
2906 			service = LOCKD;
2907 			break;
2908 		case SVC_STATD:
2909 			service = STATD;
2910 			break;
2911 		case SVC_NFSD:
2912 			service = NFSD;
2913 			break;
2914 		case SVC_MOUNTD:
2915 			service = MOUNTD;
2916 			break;
2917 		case SVC_NFS4CBD:
2918 			service = NFS4CBD;
2919 			break;
2920 		case SVC_NFSMAPID:
2921 			service = NFSMAPID;
2922 			break;
2923 		case SVC_RQUOTAD:
2924 			service = RQUOTAD;
2925 			break;
2926 		case SVC_NFSLOGD:
2927 			service = NFSLOGD;
2928 			break;
2929 		case SVC_REPARSED:
2930 			service = REPARSED;
2931 			break;
2932 		case SVC_CLIENT:
2933 			service = NFS_CLIENT_SVC;
2934 			break;
2935 		default:
2936 			continue;
2937 		}
2938 
2939 		/*
2940 		 * Only attempt to restart the service if it is
2941 		 * currently running. In the future, it may be
2942 		 * desirable to use smf_refresh_instance if the NFS
2943 		 * services ever implement the refresh method.
2944 		 */
2945 		if (service_in_state(service, SCF_STATE_STRING_ONLINE)) {
2946 			ret = smf_restart_instance(service);
2947 			/*
2948 			 * There are only a few SMF errors at this point, but
2949 			 * it is also possible that a bad value may have put
2950 			 * the service into maintenance if there wasn't an
2951 			 * SMF level error.
2952 			 */
2953 			if (ret != 0) {
2954 				(void) fprintf(stderr,
2955 				    dgettext(TEXT_DOMAIN,
2956 				    "%s failed to restart: %s\n"),
2957 				    service, scf_strerror(scf_error()));
2958 			} else {
2959 				/*
2960 				 * Check whether it has gone to "maintenance"
2961 				 * mode or not. Maintenance implies something
2962 				 * went wrong.
2963 				 */
2964 				if (service_in_state(service,
2965 				    SCF_STATE_STRING_MAINT)) {
2966 					(void) fprintf(stderr,
2967 					    dgettext(TEXT_DOMAIN,
2968 					    "%s failed to restart\n"),
2969 					    service);
2970 				}
2971 			}
2972 		}
2973 		svcs &= ~mask;
2974 	}
2975 }
2976 
2977 /*
2978  * nfs_minmax_check(name, value)
2979  *
2980  * Verify that the value for the property specified by index is valid
2981  * relative to the opposite value in the case of a min/max variable.
2982  * Currently, server_minvers/server_maxvers and
2983  * client_minvers/client_maxvers are the only ones to check.
2984  */
2985 
2986 static int
nfs_minmax_check(int index,int value)2987 nfs_minmax_check(int index, int value)
2988 {
2989 	int val;
2990 	char *pval;
2991 	sa_property_t prop;
2992 	sa_optionset_t opts;
2993 	int ret = B_TRUE;
2994 
2995 	if (proto_options[index].other != NULL) {
2996 		/* have a property to compare against */
2997 		opts = nfs_get_proto_set();
2998 		prop = sa_get_property(opts, proto_options[index].other);
2999 		/*
3000 		 * If we don't find the property, assume default
3001 		 * values which will work since the max will be at the
3002 		 * max and the min at the min.
3003 		 */
3004 		if (prop != NULL) {
3005 			pval = sa_get_property_attr(prop, "value");
3006 			if (pval != NULL) {
3007 				val = strtoul(pval, NULL, 0);
3008 				if (proto_options[index].compare ==
3009 				    OPT_CMP_LE) {
3010 					ret = value <= val ? B_TRUE : B_FALSE;
3011 				} else if (proto_options[index].compare ==
3012 				    OPT_CMP_GE) {
3013 					ret = value >= val ? B_TRUE : B_FALSE;
3014 				}
3015 				sa_free_attr_string(pval);
3016 			}
3017 		}
3018 	}
3019 	return (ret);
3020 }
3021 
3022 /*
3023  * nfs_validate_proto_prop(index, name, value)
3024  *
3025  * Verify that the property specified by name can take the new
3026  * value. This is a sanity check to prevent bad values getting into
3027  * the default files. All values need to be checked against what is
3028  * allowed by their defined type. If a type isn't explicitly defined
3029  * here, it is treated as a string.
3030  *
3031  * Note that OPT_TYPE_NUMBER will additionally check that the value is
3032  * within the range specified and potentially against another property
3033  * value as well as specified in the proto_options members other and
3034  * compare.
3035  */
3036 
3037 static int
nfs_validate_proto_prop(int index,char * name,char * value)3038 nfs_validate_proto_prop(int index, char *name, char *value)
3039 {
3040 	int ret = SA_OK;
3041 	char *cp;
3042 #ifdef lint
3043 	name = name;
3044 #endif
3045 	switch (proto_options[index].type) {
3046 	case OPT_TYPE_NUMBER:
3047 		if (!is_a_number(value))
3048 			ret = SA_BAD_VALUE;
3049 		else {
3050 			int val;
3051 			val = strtoul(value, NULL, 0);
3052 			if (val < proto_options[index].minval ||
3053 			    val > proto_options[index].maxval)
3054 				ret = SA_BAD_VALUE;
3055 			/*
3056 			 * For server_versmin/server_versmax and
3057 			 * client_versmin/client_versmax, the value of the
3058 			 * min(max) should be checked to be correct relative
3059 			 * to the current max(min).
3060 			 */
3061 			if (!nfs_minmax_check(index, val)) {
3062 				ret = SA_BAD_VALUE;
3063 			}
3064 		}
3065 		break;
3066 
3067 	case OPT_TYPE_DOMAIN:
3068 		/*
3069 		 * needs to be a qualified domain so will have at
3070 		 * least one period and other characters on either
3071 		 * side of it.  A zero length string is also allowed
3072 		 * and is the way to turn off the override.
3073 		 */
3074 		if (strlen(value) == 0)
3075 			break;
3076 		cp = strchr(value, '.');
3077 		if (cp == NULL || cp == value || strchr(value, '@') != NULL)
3078 			ret = SA_BAD_VALUE;
3079 		break;
3080 
3081 	case OPT_TYPE_BOOLEAN:
3082 		if (strlen(value) == 0 ||
3083 		    strcasecmp(value, "true") == 0 ||
3084 		    strcmp(value, "1") == 0 ||
3085 		    strcasecmp(value, "false") == 0 ||
3086 		    strcmp(value, "0") == 0) {
3087 			ret = SA_OK;
3088 		} else {
3089 			ret = SA_BAD_VALUE;
3090 		}
3091 		break;
3092 
3093 	case OPT_TYPE_ONOFF:
3094 		if (strcasecmp(value, "on") != 0 &&
3095 		    strcasecmp(value, "off") != 0) {
3096 			ret = SA_BAD_VALUE;
3097 		}
3098 		break;
3099 
3100 	case OPT_TYPE_PROTOCOL:
3101 		if (strlen(value) != 0 &&
3102 		    strcasecmp(value, "all") != 0 &&
3103 		    strcasecmp(value, "tcp") != 0 &&
3104 		    strcasecmp(value, "udp") != 0)
3105 			ret = SA_BAD_VALUE;
3106 		break;
3107 
3108 	default:
3109 		/* treat as a string */
3110 		break;
3111 	}
3112 	return (ret);
3113 }
3114 
3115 /*
3116  * nfs_set_proto_prop(prop)
3117  *
3118  * check that prop is valid.
3119  */
3120 
3121 static int
nfs_set_proto_prop(sa_property_t prop)3122 nfs_set_proto_prop(sa_property_t prop)
3123 {
3124 	int ret = SA_OK;
3125 	char *name;
3126 	char *value;
3127 
3128 	name = sa_get_property_attr(prop, "type");
3129 	value = sa_get_property_attr(prop, "value");
3130 	if (name != NULL && value != NULL) {
3131 		scf_type_t sctype;
3132 		char *svc_name;
3133 		char *instance = NULL;
3134 		int index = findprotoopt(name, 1);
3135 
3136 		ret = nfs_validate_proto_prop(index, name, value);
3137 		if (ret == SA_OK) {
3138 			sctype = getscftype(proto_options[index].type);
3139 			svc_name = getsvcname(proto_options[index].svcs);
3140 			if (sctype == SCF_TYPE_BOOLEAN) {
3141 				if (value != NULL)
3142 					sa_free_attr_string(value);
3143 				if (string_to_boolean(value) == 0)
3144 					value = strdup("0");
3145 				else
3146 					value = strdup("1");
3147 			}
3148 			ret = nfs_smf_set_prop(name, value, instance, sctype,
3149 			    svc_name);
3150 			if (ret == SA_OK) {
3151 				restart_service(proto_options[index].svcs);
3152 			} else {
3153 				(void) printf(dgettext(TEXT_DOMAIN,
3154 				    "Cannot restart NFS services : %s\n"),
3155 				    sa_errorstr(ret));
3156 			}
3157 		}
3158 	}
3159 	if (name != NULL)
3160 		sa_free_attr_string(name);
3161 	if (value != NULL)
3162 		sa_free_attr_string(value);
3163 	return (ret);
3164 }
3165 
3166 /*
3167  * nfs_get_status()
3168  *
3169  * What is the current status of the nfsd? We use the SMF state here.
3170  * Caller must free the returned value.
3171  */
3172 
3173 static char *
nfs_get_status()3174 nfs_get_status()
3175 {
3176 	return (smf_get_state(NFSD));
3177 }
3178 
3179 /*
3180  * nfs_space_alias(alias)
3181  *
3182  * Lookup the space (security) name. If it is default, convert to the
3183  * real name.
3184  */
3185 
3186 static char *
nfs_space_alias(char * space)3187 nfs_space_alias(char *space)
3188 {
3189 	char *name = space;
3190 	seconfig_t secconf;
3191 
3192 	/*
3193 	 * Only the space named "default" is special. If it is used,
3194 	 * the default needs to be looked up and the real name used.
3195 	 * This is normally "sys" but could be changed.  We always
3196 	 * change default to the real name.
3197 	 */
3198 	if (strcmp(space, "default") == 0 &&
3199 	    nfs_getseconfig_default(&secconf) == 0) {
3200 		if (nfs_getseconfig_bynumber(secconf.sc_nfsnum, &secconf) == 0)
3201 			name = secconf.sc_name;
3202 	}
3203 	return (strdup(name));
3204 }
3205 
3206 /*
3207  * nfs_features()
3208  *
3209  * Return a mask of the features required.
3210  */
3211 
3212 static uint64_t
nfs_features()3213 nfs_features()
3214 {
3215 	return ((uint64_t)SA_FEATURE_DFSTAB | SA_FEATURE_SERVER);
3216 }
3217