xref: /illumos-gate/usr/src/lib/libnisdb/ldap_xdr.c (revision 4eaa471005973e11a6110b69fe990530b3b95a38)
1 /*
2  * CDDL HEADER START
3  *
4  * The contents of this file are subject to the terms of the
5  * Common Development and Distribution License, Version 1.0 only
6  * (the "License").  You may not use this file except in compliance
7  * with the License.
8  *
9  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10  * or http://www.opensolaris.org/os/licensing.
11  * See the License for the specific language governing permissions
12  * and limitations under the License.
13  *
14  * When distributing Covered Code, include this CDDL HEADER in each
15  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16  * If applicable, add the following below this CDDL HEADER, with the
17  * fields enclosed by brackets "[]" replaced with your own identifying
18  * information: Portions Copyright [yyyy] [name of copyright owner]
19  *
20  * CDDL HEADER END
21  */
22 /*
23  * Copyright (c) 2001 by Sun Microsystems, Inc.
24  * All rights reserved.
25  */
26 
27 #pragma ident	"%Z%%M%	%I%	%E% SMI"
28 
29 #include <string.h>
30 #include <sys/syslog.h>
31 #include <sys/types.h>
32 #include <rpc/types.h>
33 #include <rpc/xdr.h>
34 #include <rpcsvc/nis.h>
35 
36 #include "db_mindex_c.h"
37 
38 #include "ldap_xdr.h"
39 #include "ldap_util.h"
40 
41 extern bool_t xdr_nis_object();
42 
43 /*
44  * In order not to change the on-disk NIS+ DB format, we need make sure
45  * that XDR does nothing for the new structures added to various C++
46  * classes.
47  */
48 
49 bool_t
50 xdr___nis_table_mapping_t(XDR *xdrs, void *t) {
51 	return (TRUE);
52 }
53 
54 bool_t
55 xdr___nisdb_ptr_t(XDR *xdrs, void *ptr) {
56 	return (TRUE);
57 }
58 
59 bool_t
60 xdr___nisdb_dictionary_defer_t(XDR *xdrs, void *defer) {
61 	return (TRUE);
62 }
63 
64 bool_t
65 xdr___nisdb_rwlock_t(XDR *xdrs, void *rw) {
66 	return (TRUE);
67 }
68 
69 bool_t
70 xdr___nisdb_flag_t(XDR *xdrs, void *flag) {
71 	return (TRUE);
72 }
73 
74 /*
75  * Imported from rpc.nisd/nis_db.c
76  *
77  * Special abbreviated XDR string which knows that the namep parameter (mainly
78  * owner and group) has a trailing end which matches the last 'n' characters
79  * in the domainname part.  It makes use of those common characters to
80  * encode/decode this information.  We append an integer string to the
81  * name to be encoded which denotes the place in the domainname from where the
82  * common string starts.  For example, if the name was "foo.my.domain." and the
83  * domainname was "my.domain.", the name would be encoded as "foo.10" because
84  * the length of the common part "my.domain." is 10.
85  */
86 bool_t
87 xdr_nis_name_abbrev(
88 	XDR		*xdrs,
89 	nis_name	*namep,
90 	nis_name	domainname)	/* domainname field from the table */
91 {
92 	size_t	name_len, dom_len, min_len;
93 	char 	buf[NIS_MAXNAMELEN];
94 	char 	*name;
95 	char	*lenstr, *tmp;
96 	int	i;
97 
98 	switch (xdrs->x_op) {
99 	case XDR_ENCODE:
100 		/* Get the start of the common part */
101 		name = *namep;
102 		name_len = strlen(name);
103 		if (name_len == 0)
104 			return (xdr_nis_name(xdrs, namep));
105 		dom_len = strlen(domainname);
106 		min_len = (name_len < dom_len) ? name_len : dom_len;
107 		for (i = 1; i <= min_len; i++) {
108 			if (name[name_len - i] != domainname[dom_len - i])
109 				break;
110 		}
111 		i--;
112 		memcpy(buf, name, name_len - i);
113 		sprintf(buf + name_len - i, ".%d", dom_len - i);
114 		tmp = buf;
115 		return (xdr_nis_name(xdrs, &tmp));
116 
117 	case XDR_DECODE:
118 		tmp = buf;
119 		if (!xdr_nis_name(xdrs, &tmp))
120 		    return (FALSE);
121 		if ((buf[0] == NULL) || buf[strlen(buf) - 1] == '.') {
122 			/* It is either a FQN or a NULL string */
123 			if (*namep) {
124 				strcpy(*namep, buf);
125 				return (TRUE);
126 			} else {
127 				if ((*namep = strdup(buf)) == NULL)
128 					return (FALSE);
129 				else
130 					return (TRUE);
131 			}
132 		}
133 		/* Now concoct the new name */
134 		if ((lenstr = strrchr(buf, '.')) == NULL) {
135 			/* something went wrong here */
136 			syslog(LOG_ERR,
137 				"xdr_nis_name_abbrev: no dot found in %s", buf);
138 			return (FALSE);
139 		}
140 		i = atoi(lenstr + 1);
141 		strcpy(lenstr, domainname + i);
142 		if (*namep) {
143 			strcpy(*namep, buf);
144 		} else {
145 			if ((*namep = strdup(buf)) == NULL)
146 				return (FALSE);
147 		}
148 		return (TRUE);
149 
150 	default:
151 		return (xdr_nis_name(xdrs, namep));
152 	}
153 }
154 
155 /*
156  * Imported from rpc.nisd/nis_db.c
157  *
158  * special XDR for fetus object.  We create the actual object from the
159  * "forming" object plus the table object.  We create this special object to
160  * save the following components of the nis_object:
161  *	zo_name and zo_domain: replaced by just the length field of 0.  We had
162  *		to keep the length field for backward compatibility.  If we
163  *		ever change the object format, we should fix this.
164  *	zo_owner and zo_group: we condensed it by abbreviating the common part
165  *		shared between the table object and the entry object
166  *	en_type: Avoided altogether
167  *	zo_type and other en_data: Avoided altogether.
168  *
169  * XXX: If the definition of nis_object ever changes, this should be changed.
170  */
171 bool_t
172 xdr_nis_fetus_object(
173 	XDR		*xdrs,
174 	nis_object	*objp,	/* Entry object */
175 	nis_object	*tobj)	/* Table object */
176 {
177 	uint_t	size;
178 
179 	if (xdrs->x_op == XDR_FREE)
180 		return (xdr_nis_object(xdrs, objp));
181 	if (!xdr_nis_oid(xdrs, &objp->zo_oid))
182 		return (FALSE);
183 
184 	/*
185 	 * While encoding of zo_name, we put 0 in the length field, while for
186 	 * decoding, we get the name from the table object.
187 	 */
188 	if (xdrs->x_op == XDR_ENCODE) {
189 		size = 0;
190 		if (!xdr_u_int(xdrs, &size))
191 			return (FALSE);
192 	} else {
193 		if (!xdr_u_int(xdrs, &size))
194 			return (FALSE);
195 		if (size == 0) {	/* shrinked format */
196 			/* get the name from the table object */
197 			if ((objp->zo_name = strdup(tobj->zo_name)) == NULL)
198 				return (FALSE);
199 		} else {
200 			/*
201 			 * We are opening up the xdr_string implementation here
202 			 * because we called xdr_u_int() earlier.
203 			 */
204 			if ((objp->zo_name = (char *)malloc(size + 1)) == NULL)
205 				return (FALSE);
206 			if (!xdr_opaque(xdrs, objp->zo_name, size))
207 				return (FALSE);
208 		}
209 	}
210 
211 	/*
212 	 * We use the xdr_nis_name_abbrev() function for both owner
213 	 * and group which constructs the name from the domain name.
214 	 */
215 	if (!xdr_nis_name_abbrev(xdrs, &objp->zo_owner, tobj->zo_domain))
216 		return (FALSE);
217 	if (!xdr_nis_name_abbrev(xdrs, &objp->zo_group, tobj->zo_domain))
218 		return (FALSE);
219 
220 	/*
221 	 * While encoding of zo_domain, we put 0 in the length field, while for
222 	 * decoding, we get the name from the table object.  Same as above for
223 	 * the name.  Could have used a function instead.
224 	 */
225 	if (xdrs->x_op == XDR_ENCODE) {
226 		size = 0;
227 		if (!xdr_u_int(xdrs, &size))
228 			return (FALSE);
229 	} else {
230 		if (!xdr_u_int(xdrs, &size))
231 			return (FALSE);
232 		if (size == 0) {	/* shrinked format */
233 			/* get the name from the table object */
234 			if ((objp->zo_domain = strdup(tobj->zo_domain)) == NULL)
235 				return (FALSE);
236 		} else {
237 			/*
238 			 * We are opening up the xdr_string implementation here
239 			 * because we called xdr_u_int() earlier.
240 			 */
241 			if ((objp->zo_domain = (char *)malloc(size + 1))
242 				== NULL)
243 				return (FALSE);
244 			if (!xdr_opaque(xdrs, objp->zo_domain, size))
245 				return (FALSE);
246 		}
247 	}
248 
249 	if (!xdr_u_int(xdrs, &objp->zo_access))
250 		return (FALSE);
251 	if (!xdr_u_int(xdrs, &objp->zo_ttl))
252 		return (FALSE);
253 
254 	/*
255 	 * We know that this is an entry object, so we'll save all the entry_obj
256 	 * space because we can recreate it later.
257 	 */
258 	if (xdrs->x_op == XDR_ENCODE)
259 		return (TRUE);
260 	/* Now for the DECODE case, just handcraft the entries and ignore XDR */
261 	objp->zo_data.zo_type = NIS_ENTRY_OBJ;
262 	if ((objp->zo_data.objdata_u.en_data.en_type =
263 		strdup(tobj->zo_data.objdata_u.ta_data.ta_type)) == NULL)
264 		return (FALSE);
265 	objp->zo_data.objdata_u.en_data.en_cols.en_cols_val = NULL;
266 	objp->zo_data.objdata_u.en_data.en_cols.en_cols_len = 0;
267 	return (TRUE);
268 }
269 
270 static const char	*in_directory = "IN_DIRECTORY";
271 
272 /*
273  * Given an input NIS+ object, create the kind
274  * of pseudo-entry_obj (with an XDR-encoded nis_object in the
275  * first column) that's stored in the DB. Note that:
276  *
277  *	If the input object is an entry, it's assumed to have the
278  *	columns moved up one step (col 0 in en_cols.en_cols_val[1],
279  *	etc.). en_cols.en_cols_val[0] will be overwritten. The
280  *	input object will be changed (some pointers set to zero,
281  *	etc.) on exit.
282  *
283  *	'eo' is assumed to be a pointer to an empty entry_obj (or,
284  *	at least, one that can be overwritten). It must not be a
285  *	pointer to the entry_obj in 'obj'. If the input object is
286  *	of a type other than entry, the 'eo' pointer must have
287  *	en_cols.en_cols_val appropriately initialized to an array of
288  *	(at least) length one.
289  *
290  *	'tobj' is a pointer to the table object for the table for
291  *	which the entry_obj is destined. It's needed for entry objects,
292  *	but unused for other object types.
293  */
294 entry_obj *
295 makePseudoEntryObj(nis_object *obj, entry_obj *eo, nis_object *tobj) {
296 	int		bufsize;
297 	char		*buf;
298 	XDR		xdrs;
299 	bool_t		xret;
300 	uint_t		ecl;
301 	entry_col	*ecv;
302 	char		*myself = "makePseudoEntryObj";
303 
304 	if (obj == 0 || eo == 0)
305 		return (0);
306 
307 	if (obj->zo_data.zo_type == NIS_ENTRY_OBJ) {
308 		*eo = obj->zo_data.objdata_u.en_data;
309 		eo->en_type = 0;
310 
311 		/*
312 		 * To prevent the XDR function from making a copy of
313 		 * the entry columns, we set the columns structure to
314 		 * 0 (ie no column data)
315 		 */
316 		ecl = obj->EN_data.en_cols.en_cols_len;
317 		ecv = obj->EN_data.en_cols.en_cols_val;
318 		obj->EN_data.en_cols.en_cols_len  = 0;
319 		obj->EN_data.en_cols.en_cols_val  = 0;
320 	} else {
321 		eo->en_type = (char *)in_directory;
322 	}
323 
324 	bufsize = xdr_sizeof(xdr_nis_object, obj);
325 	buf = am(myself, bufsize);
326 	if (buf == 0) {
327 		if (obj->zo_data.zo_type == NIS_ENTRY_OBJ) {
328 			obj->EN_data.en_cols.en_cols_len = ecl;
329 			obj->EN_data.en_cols.en_cols_val = ecv;
330 		}
331 		return (0);
332 	}
333 
334 	xdrmem_create(&xdrs, (char *)buf, bufsize, XDR_ENCODE);
335 
336 	if (obj->zo_data.zo_type == NIS_ENTRY_OBJ) {
337 		xret = xdr_nis_fetus_object(&xdrs, obj, tobj);
338 	} else {
339 		xret = xdr_nis_object(&xdrs, obj);
340 	}
341 
342 	/* Restore the 'obj' */
343 	if (obj->zo_data.zo_type == NIS_ENTRY_OBJ) {
344 		obj->EN_data.en_cols.en_cols_len = ecl;
345 		obj->EN_data.en_cols.en_cols_val = ecv;
346 	}
347 
348 	if (!xret) {
349 		logmsg(MSG_NOTIMECHECK, LOG_ERR,
350 			"%s: XDR encode failure", myself);
351 		sfree(buf);
352 		return (0);
353 	}
354 
355 	eo->en_cols.en_cols_val[0].ec_value.ec_value_val = buf;
356 	eo->en_cols.en_cols_val[0].ec_value.ec_value_len = xdr_getpos(&xdrs);
357 	eo->en_cols.en_cols_val[0].ec_flags = EN_BINARY+EN_XDR;
358 
359 	return (eo);
360 }
361 
362 nis_object *
363 unmakePseudoEntryObj(entry_obj *e, nis_object *tobj) {
364 	nis_object	*o;
365 	XDR		xdrs;
366 	bool_t		stat;
367 	char		*myself = "unmakePseudoEntryObj";
368 
369 	if (e == 0 || e->en_cols.en_cols_val == 0 ||
370 			e->en_cols.en_cols_len == 0)
371 		return (0);
372 
373 	o = am(myself, sizeof (*o));
374 	if (o == 0)
375 		return (0);
376 
377 	xdrmem_create(&xdrs, e->en_cols.en_cols_val[0].ec_value.ec_value_val,
378 			e->en_cols.en_cols_val[0].ec_value.ec_value_len,
379 			XDR_DECODE);
380 
381 	if (tobj != 0 && (e->en_type == 0 || e->en_type[0] == '\0')) {
382 		stat = xdr_nis_fetus_object(&xdrs, o, tobj);
383 	} else {
384 		stat = xdr_nis_object(&xdrs, o);
385 	}
386 
387 	if (!stat) {
388 		sfree(o);
389 		o = 0;
390 	}
391 
392 	/*
393 	 * If it's an entry object, construct the column information.
394 	 * We make this a copy, so that 'o' can be freed using
395 	 * nis_destroy_object().
396 	 */
397 	if (o != 0 && o->zo_data.zo_type == NIS_ENTRY_OBJ &&
398 			o->zo_data.objdata_u.en_data.en_cols.en_cols_val == 0 &&
399 			e->en_cols.en_cols_len > 1) {
400 		entry_col	*ec, *oec;
401 		uint_t		i, *ocl;
402 
403 		ec = am(myself, (e->en_cols.en_cols_len - 1) * sizeof (ec[0]));
404 		if (ec == 0) {
405 			nis_destroy_object(o);
406 			return (0);
407 		}
408 
409 		o->zo_data.objdata_u.en_data.en_cols.en_cols_val = ec;
410 		o->zo_data.objdata_u.en_data.en_cols.en_cols_len = 0;
411 		ocl = &o->zo_data.objdata_u.en_data.en_cols.en_cols_len;
412 		oec = e->en_cols.en_cols_val;
413 
414 		for (i = 1; i < e->en_cols.en_cols_len; i++) {
415 			uint_t	len;
416 
417 			if (oec[i].ec_value.ec_value_val != 0) {
418 				len = oec[i].ec_value.ec_value_len;
419 				if (len == 0)
420 					len++;
421 				ec[i-1].ec_value.ec_value_val = am(myself, len);
422 				if (ec[i-1].ec_value.ec_value_val == 0) {
423 					nis_destroy_object(o);
424 					return (0);
425 				}
426 				(void) memcpy(ec[i-1].ec_value.ec_value_val,
427 						oec[i].ec_value.ec_value_val,
428 						oec[i].ec_value.ec_value_len);
429 				ec[i-1].ec_value.ec_value_len =
430 						oec[i].ec_value.ec_value_len;
431 			} else {
432 				ec[i-1].ec_value.ec_value_val = 0;
433 				ec[i-1].ec_value.ec_value_len = 0;
434 			}
435 			*ocl += 1;
436 		}
437 	}
438 
439 	/*
440 	 * If it's an entry, and we have the table object, make sure
441 	 * zo_name and en_type either already are set, or get them
442 	 * from the table.
443 	 */
444 	if (o != 0 && o->zo_data.zo_type == NIS_ENTRY_OBJ && tobj != 0) {
445 		if (o->zo_name == 0)
446 			o->zo_name = sdup(myself, T, tobj->zo_name);
447 		if (o->zo_data.objdata_u.en_data.en_type == 0)
448 			o->zo_data.objdata_u.en_data.en_type = sdup(myself, T,
449 				tobj->zo_data.objdata_u.ta_data.ta_type);
450 	}
451 
452 	return (o);
453 }
454 
455 /*
456  * Input:  A (nis_object *), and (optionally) an (entry_obj *) array.
457  * Output: Pointer to an XDR:ed version of an (xdr_nis_object_t).
458  */
459 void *
460 xdrNisObject(nis_object *obj, entry_obj **ea, int numEa, int *xdrLenP) {
461 	xdr_nis_object_t	xno;
462 	void			*buf;
463 	int			xdrLen;
464 	XDR			xdrs;
465 	bool_t			xret;
466 	char			*myself = "xdrNisObject";
467 
468 	if (obj == 0)
469 		return (0);
470 
471 	/*
472 	 * The version tells us what the XDR:ed buffer contains.
473 	 * Should be incremented whenever xdr_nis_object_t changes
474 	 * incompatibly.
475 	 */
476 	xno.xversion = 1;
477 
478 	xno.obj = obj;
479 
480 	if (obj->zo_data.zo_type == NIS_DIRECTORY_OBJ &&
481 			ea != 0 && numEa > 0) {
482 		int	i;
483 
484 		/*
485 		 * The ea[] array is expected to contain the kind of
486 		 * pseudo-entry object stored in the nisdb incarnation
487 		 * of a NIS+ directory. Column zero contains the XDR:ed
488 		 * directory entry object (which we ignore), while column
489 		 * one contains the name of said entry. It's the latter
490 		 * that we borrow for use in the dirEntry[] list of the
491 		 * xdr_nis_object_t.
492 		 */
493 
494 		xno.dirEntry.dirEntry_len = 0;
495 		xno.dirEntry.dirEntry_val = am(myself, numEa *
496 			sizeof (xno.dirEntry.dirEntry_val[0]));
497 		if (xno.dirEntry.dirEntry_val == 0)
498 			return (0);
499 
500 		for (i = 0; i < numEa; i++) {
501 			if (ea[i] == 0 || ea[i]->en_cols.en_cols_val == 0 ||
502 					ea[i]->en_cols.en_cols_len != 2 ||
503 					ea[i]->en_cols.en_cols_val[1].
504 						ec_value.ec_value_len == 0)
505 				continue;
506 			/*
507 			 * Yes, there's a NUL at the end of the dir entry
508 			 * name.
509 			 */
510 			xno.dirEntry.dirEntry_val[xno.dirEntry.dirEntry_len] =
511 				ea[i]->en_cols.en_cols_val[1].
512 					ec_value.ec_value_val;
513 			xno.dirEntry.dirEntry_len++;
514 		}
515 	} else {
516 		/* No directory entries */
517 		xno.dirEntry.dirEntry_len = 0;
518 		xno.dirEntry.dirEntry_val = 0;
519 	}
520 
521 	xdrLen = xdr_sizeof(xdr_xdr_nis_object_t, &xno);
522 	buf = am(myself, xdrLen);
523 	if (buf == 0)
524 		return (0);
525 
526 	xdrmem_create(&xdrs, (char *)buf, xdrLen, XDR_ENCODE);
527 
528 	xret = xdr_xdr_nis_object_t(&xdrs, &xno);
529 
530 	sfree(xno.dirEntry.dirEntry_val);
531 
532 	if (!xret) {
533 		sfree(buf);
534 		return (0);
535 	}
536 
537 	if (xdrLenP != 0)
538 		*xdrLenP = xdrLen;
539 
540 	return (buf);
541 }
542 
543 /*
544  * Input:  Pointer to an XDR:ed version of an (xdr_nis_object_t).
545  * Output: Pointer to a (nis_object *) and (if the object is a
546  *         directory) a pointer to an array of (entry_obj *).
547  */
548 nis_object *
549 unXdrNisObject(void *buf, int bufLen, entry_obj ***eaP, int *numEaP) {
550 	xdr_nis_object_t	*xno;
551 	XDR			xdrs;
552 	bool_t			xret;
553 	entry_obj		**ea;
554 	int			numEa;
555 	nis_object		*o;
556 	char			*myself = "unXdrNisObject";
557 
558 	if (buf == 0 || bufLen <= 0)
559 		return (0);
560 
561 	xno = am(myself, sizeof (*xno));
562 	if (xno == 0)
563 		return (0);
564 
565 	xdrmem_create(&xdrs, buf, bufLen, XDR_DECODE);
566 	xret = xdr_xdr_nis_object_t(&xdrs, xno);
567 
568 	if (!xret) {
569 		sfree(xno);
570 		return (0);
571 	}
572 
573 	switch (xno->xversion) {
574 	case 1:
575 		break;
576 	default:
577 		xdr_free(xdr_xdr_nis_object_t, (char *)xno);
578 		sfree(xno);
579 		logmsg(MSG_NOTIMECHECK, LOG_WARNING,
580 			"%s: Unknown xdr_nis_object_t version %d",
581 			myself, xno->xversion);
582 		return (0);
583 	}
584 
585 	if (eaP != 0 && numEaP != 0 && xno->dirEntry.dirEntry_len > 0 &&
586 			xno->dirEntry.dirEntry_val != 0) {
587 		ea = am(myself, xno->dirEntry.dirEntry_len * sizeof (ea[0]));
588 		if (ea == 0) {
589 			xdr_free(xdr_xdr_nis_object_t, (char *)xno);
590 			sfree(xno);
591 			return (0);
592 		}
593 		for (numEa = 0; numEa < xno->dirEntry.dirEntry_len; numEa++) {
594 			ea[numEa] = am(myself, sizeof (*ea[numEa]));
595 			if (ea[numEa] != 0) {
596 				ea[numEa]->en_cols.en_cols_len = 2;
597 				ea[numEa]->en_cols.en_cols_val = am(myself,
598 					ea[numEa]->en_cols.en_cols_len *
599 				sizeof (ea[numEa]->en_cols.en_cols_val[0]));
600 			}
601 			if (ea[numEa] == 0 ||
602 					ea[numEa]->en_cols.en_cols_val == 0) {
603 				int	i;
604 				for (i = 0; i < numEa; i++) {
605 					sfree(ea[i]->en_cols.en_cols_val);
606 					sfree(ea[i]);
607 				}
608 				sfree(ea);
609 				xdr_free(xdr_xdr_nis_object_t, (char *)xno);
610 				sfree(xno);
611 				return (0);
612 			}
613 			/* Leave column 0 (XDR:ed object) empty */
614 			ea[numEa]->en_cols.en_cols_val[0].
615 				ec_value.ec_value_len = 0;
616 			ea[numEa]->en_cols.en_cols_val[0].
617 				ec_value.ec_value_val = 0;
618 			/*
619 			 * Fill in name of dir entry. The DB counts the NUL
620 			 * as part of the dir entry name; hence, add one
621 			 * to the string length.
622 			 */
623 			ea[numEa]->en_cols.en_cols_val[1].
624 				ec_value.ec_value_len = slen(xno->dirEntry.
625 					dirEntry_val[numEa]) + 1;
626 			ea[numEa]->en_cols.en_cols_val[1].
627 				ec_value.ec_value_val =
628 					xno->dirEntry.dirEntry_val[numEa];
629 		}
630 		*eaP = ea;
631 		*numEaP = numEa;
632 		/*
633 		 * The xno->dirEntry.dirEntry_val[] pointers are duplicated
634 		 * in 'ea'. Set the xno pointers to zero, so that the xdr_free
635 		 * doesn't free the 'ea' data.
636 		 */
637 		if (numEa > 0) {
638 			int	i;
639 			for (i = 0; i < numEa; i++) {
640 				xno->dirEntry.dirEntry_val[i] = 0;
641 			}
642 		}
643 	} else {
644 		if (eaP != 0)
645 			*eaP = 0;
646 		if (numEaP != 0)
647 			*numEaP = 0;
648 	}
649 
650 	o = xno->obj;
651 	xno->obj = 0;
652 	xdr_free(xdr_xdr_nis_object_t, (char *)xno);
653 	sfree(xno);
654 
655 	return (o);
656 }
657 
658 void
659 freeEntryObjArray(entry_obj **ea, int numEa) {
660 	int	i;
661 
662 	if (ea == 0)
663 		return;
664 
665 	for (i = 0; i < numEa; i++) {
666 		int	j;
667 
668 		for (j = 0; j < ea[i]->en_cols.en_cols_len; j++) {
669 			sfree(ea[i]->en_cols.en_cols_val[j].
670 				ec_value.ec_value_val);
671 		}
672 
673 		sfree(ea[i]->en_cols.en_cols_val);
674 	}
675 
676 	sfree(ea);
677 }
678 
679 /*
680  * Return TRUE if 'o1' and 'o2' are the same, FALSE otherwise.
681  * We perform the comparison by XDR encoding the objects, and then
682  * checking the XDR buffers for equality. However, we don't want to
683  * include the zo_oid (i.e., ctime and mtime) in the comparison.
684  */
685 bool_t
686 sameNisPlusObj(nis_object *o1, nis_object *o2) {
687 	XDR		x1, x2;
688 	void		*b1, *b2;
689 	int		l1, l2;
690 	bool_t		ret;
691 	nis_object	obj1, obj2;
692 	char		*myself = "sameNisPlusObj";
693 
694 	if (o1 == o2)
695 		return (TRUE);
696 	else if (o1 == 0 || o2 == 0)
697 		return (FALSE);
698 
699 	/*
700 	 * We want to exclude the zo_oid from the comparison. In order
701 	 * not to modify the objects (even very briefly), we do this by
702 	 * making copies (nis_object itself only, not the underlying
703 	 * structures accessed through pointers), and setting the zo_oid
704 	 * to zero in the copies.
705 	 */
706 	obj1 = *o1;
707 	obj2 = *o2;
708 	obj1.zo_oid.ctime = obj1.zo_oid.mtime = 0;
709 	obj2.zo_oid.ctime = obj2.zo_oid.mtime = 0;
710 
711 	l1 = xdr_sizeof(xdr_nis_object, &obj1);
712 	l2 = xdr_sizeof(xdr_nis_object, &obj2);
713 	if (l1 != l2)
714 		return (FALSE);
715 
716 	b1 = am(myself, l1);
717 	b2 = am(myself, l2);
718 	if (b1 == 0 || b2 == 0) {
719 		sfree(b1);
720 		sfree(b2);
721 		return (FALSE);
722 	}
723 
724 	xdrmem_create(&x1, (char *)b1, l1, XDR_ENCODE);
725 	xdrmem_create(&x2, (char *)b2, l2, XDR_ENCODE);
726 
727 	if (xdr_nis_object(&x1, &obj1) && xdr_nis_object(&x2, &obj2)) {
728 		ret = (memcmp(b1, b2, l1) == 0);
729 	} else {
730 		logmsg(MSG_NOTIMECHECK, LOG_WARNING,
731 			"%s: xdr_nis_object() error",
732 			myself);
733 		ret = FALSE;
734 	}
735 
736 	sfree(b1);
737 	sfree(b2);
738 
739 	return (ret);
740 }
741 
742 /*
743  * A wrapper/convenience function for sameNisPlusObj() that extracts
744  * the object in column zero of 'e2'.
745  */
746 bool_t
747 sameNisPlusPseudoObj(nis_object *o1, entry_obj *e2) {
748 	nis_object	*o2;
749 	bool_t		res;
750 
751 	if (o1 == 0 && e2 == 0)
752 		return (TRUE);
753 	else if (e2 == 0)
754 		return (FALSE);
755 
756 	o2 = unmakePseudoEntryObj(e2, 0);
757 	if (o2 == 0)
758 		return ((o1 == 0) ? TRUE : FALSE);
759 
760 	res = sameNisPlusObj(o1, o2);
761 
762 	nis_destroy_object(o2);
763 
764 	return (res);
765 }
766