Home | History | Annotate | Line # | Download | only in mountd
mountd.c revision 1.40
      1 /*	$NetBSD: mountd.c,v 1.40 1997/08/28 05:49:15 lukem Exp $	*/
      2 
      3 /*
      4  * Copyright (c) 1989, 1993
      5  *	The Regents of the University of California.  All rights reserved.
      6  *
      7  * This code is derived from software contributed to Berkeley by
      8  * Herb Hasler and Rick Macklem at The University of Guelph.
      9  *
     10  * Redistribution and use in source and binary forms, with or without
     11  * modification, are permitted provided that the following conditions
     12  * are met:
     13  * 1. Redistributions of source code must retain the above copyright
     14  *    notice, this list of conditions and the following disclaimer.
     15  * 2. Redistributions in binary form must reproduce the above copyright
     16  *    notice, this list of conditions and the following disclaimer in the
     17  *    documentation and/or other materials provided with the distribution.
     18  * 3. All advertising materials mentioning features or use of this software
     19  *    must display the following acknowledgement:
     20  *	This product includes software developed by the University of
     21  *	California, Berkeley and its contributors.
     22  * 4. Neither the name of the University nor the names of its contributors
     23  *    may be used to endorse or promote products derived from this software
     24  *    without specific prior written permission.
     25  *
     26  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     27  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     28  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     29  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     30  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     31  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     32  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     33  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     34  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     35  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     36  * SUCH DAMAGE.
     37  */
     38 
     39 
     40 /*
     41  * XXX The ISO support can't possibly work..
     42  */
     43 
     44 
     45 #ifndef lint
     46 static char copyright[] =
     47 "@(#) Copyright (c) 1989, 1993\n\
     48 	The Regents of the University of California.  All rights reserved.\n";
     49 #endif /* not lint */
     50 
     51 #ifndef lint
     52 #if 0
     53 static char sccsid[] = "@(#)mountd.c  8.15 (Berkeley) 5/1/95";
     54 #else
     55 static char rcsid[] = "$NetBSD: mountd.c,v 1.40 1997/08/28 05:49:15 lukem Exp $";
     56 #endif
     57 #endif /* not lint */
     58 
     59 #include <sys/param.h>
     60 #include <sys/file.h>
     61 #include <sys/ioctl.h>
     62 #include <sys/mount.h>
     63 #include <sys/socket.h>
     64 #include <sys/stat.h>
     65 #include <syslog.h>
     66 #include <sys/ucred.h>
     67 
     68 #include <rpc/rpc.h>
     69 #include <rpc/pmap_clnt.h>
     70 #include <rpc/pmap_prot.h>
     71 #ifdef ISO
     72 #include <netiso/iso.h>
     73 #endif
     74 #include <nfs/rpcv2.h>
     75 #include <nfs/nfsproto.h>
     76 
     77 #include <arpa/inet.h>
     78 
     79 #include <ctype.h>
     80 #include <errno.h>
     81 #include <grp.h>
     82 #include <netdb.h>
     83 #include <pwd.h>
     84 #include <signal.h>
     85 #include <stdio.h>
     86 #include <stdlib.h>
     87 #include <string.h>
     88 #include <unistd.h>
     89 #include "pathnames.h"
     90 
     91 #include <stdarg.h>
     92 
     93 /*
     94  * Structures for keeping the mount list and export list
     95  */
     96 struct mountlist {
     97 	struct mountlist *ml_next;
     98 	char	ml_host[RPCMNT_NAMELEN+1];
     99 	char	ml_dirp[RPCMNT_PATHLEN+1];
    100 	int	ml_flag;		/* XXX more flags (same as dp_flag) */
    101 };
    102 
    103 struct dirlist {
    104 	struct dirlist	*dp_left;
    105 	struct dirlist	*dp_right;
    106 	int		dp_flag;
    107 	struct hostlist	*dp_hosts;	/* List of hosts this dir exported to */
    108 	char		dp_dirp[1];	/* Actually malloc'd to size of dir */
    109 };
    110 /* dp_flag bits */
    111 #define	DP_DEFSET	0x1
    112 #define DP_HOSTSET	0x2
    113 #define DP_KERB		0x4
    114 #define DP_NORESMNT	0x8
    115 
    116 struct exportlist {
    117 	struct exportlist *ex_next;
    118 	struct dirlist	*ex_dirl;
    119 	struct dirlist	*ex_defdir;
    120 	int		ex_flag;
    121 	fsid_t		ex_fs;
    122 	char		*ex_fsdir;
    123 	char		*ex_indexfile;
    124 };
    125 /* ex_flag bits */
    126 #define	EX_LINKED	0x1
    127 
    128 struct netmsk {
    129 	u_int32_t	nt_net;
    130 	u_int32_t	nt_mask;
    131 	char *nt_name;
    132 };
    133 
    134 union grouptypes {
    135 	struct hostent *gt_hostent;
    136 	struct netmsk	gt_net;
    137 #ifdef ISO
    138 	struct sockaddr_iso *gt_isoaddr;
    139 #endif
    140 };
    141 
    142 struct grouplist {
    143 	int gr_type;
    144 	union grouptypes gr_ptr;
    145 	struct grouplist *gr_next;
    146 };
    147 /* Group types */
    148 #define	GT_NULL		0x0
    149 #define	GT_HOST		0x1
    150 #define	GT_NET		0x2
    151 #define	GT_ISO		0x4
    152 
    153 struct hostlist {
    154 	int		 ht_flag;	/* Uses DP_xx bits */
    155 	struct grouplist *ht_grp;
    156 	struct hostlist	 *ht_next;
    157 };
    158 
    159 struct fhreturn {
    160 	int	fhr_flag;
    161 	int	fhr_vers;
    162 	nfsfh_t	fhr_fh;
    163 };
    164 
    165 /* Global defs */
    166 char	*add_expdir __P((struct dirlist **, char *, int));
    167 void	add_dlist __P((struct dirlist **, struct dirlist *,
    168 				struct grouplist *, int));
    169 void	add_mlist __P((char *, char *, int));
    170 int	check_dirpath __P((char *));
    171 int	check_options __P((struct dirlist *));
    172 int	chk_host __P((struct dirlist *, u_int32_t, int *, int *));
    173 int	del_mlist __P((char *, char *, struct sockaddr *));
    174 struct dirlist *dirp_search __P((struct dirlist *, char *));
    175 int	do_mount __P((struct exportlist *, struct grouplist *, int,
    176 		struct ucred *, char *, int, struct statfs *));
    177 int	do_opt __P((char **, char **, struct exportlist *, struct grouplist *,
    178 				int *, int *, struct ucred *));
    179 struct	exportlist *ex_search __P((fsid_t *));
    180 struct	exportlist *get_exp __P((void));
    181 void	free_dir __P((struct dirlist *));
    182 void	free_exp __P((struct exportlist *));
    183 void	free_grp __P((struct grouplist *));
    184 void	free_host __P((struct hostlist *));
    185 void	get_exportlist __P((void));
    186 int	get_host __P((char *, struct grouplist *));
    187 int	get_num __P((char *));
    188 struct hostlist *get_ht __P((void));
    189 int	get_line __P((void));
    190 void	get_mountlist __P((void));
    191 int	get_net __P((char *, struct netmsk *, int));
    192 void	getexp_err __P((struct exportlist *, struct grouplist *));
    193 struct grouplist *get_grp __P((void));
    194 void	hang_dirp __P((struct dirlist *, struct grouplist *,
    195 				struct exportlist *, int));
    196 void	mntsrv __P((struct svc_req *, SVCXPRT *));
    197 void	nextfield __P((char **, char **));
    198 void	out_of_mem __P((void));
    199 void	parsecred __P((char *, struct ucred *));
    200 int	put_exlist __P((struct dirlist *, XDR *, struct dirlist *, int *));
    201 int	scan_tree __P((struct dirlist *, u_int32_t));
    202 void	send_umntall __P((void));
    203 int	umntall_each __P((caddr_t, struct sockaddr_in *));
    204 int	xdr_dir __P((XDR *, char *));
    205 int	xdr_explist __P((XDR *, caddr_t));
    206 int	xdr_fhs __P((XDR *, caddr_t));
    207 int	xdr_mlist __P((XDR *, caddr_t));
    208 
    209 /* C library */
    210 int	getnetgrent();
    211 void	endnetgrent();
    212 void	setnetgrent();
    213 
    214 #ifdef ISO
    215 struct iso_addr *iso_addr();
    216 #endif
    217 
    218 struct exportlist *exphead;
    219 struct mountlist *mlhead;
    220 struct grouplist *grphead;
    221 char exname[MAXPATHLEN];
    222 struct ucred def_anon = {
    223 	1,
    224 	(uid_t) -2,
    225 	(gid_t) -2,
    226 	0,
    227 	{ }
    228 };
    229 int opt_flags;
    230 /* Bits for above */
    231 #define	OP_MAPROOT	0x001
    232 #define	OP_MAPALL	0x002
    233 #define	OP_KERB		0x004
    234 #define	OP_MASK		0x008
    235 #define	OP_NET		0x010
    236 #define	OP_ISO		0x020
    237 #define	OP_ALLDIRS	0x040
    238 #define OP_NORESPORT	0x080
    239 #define OP_NORESMNT	0x100
    240 
    241 int debug = 0;
    242 void	SYSLOG __P((int, const char *, ...));
    243 
    244 /*
    245  * Mountd server for NFS mount protocol as described in:
    246  * NFS: Network File System Protocol Specification, RFC1094, Appendix A
    247  * The optional arguments are the exports file name
    248  * default: _PATH_EXPORTS
    249  * "-d" to enable debugging
    250  * and "-n" to allow nonroot mount.
    251  */
    252 int
    253 main(argc, argv)
    254 	int argc;
    255 	char **argv;
    256 {
    257 	SVCXPRT *udptransp, *tcptransp;
    258 	int c;
    259 
    260 	while ((c = getopt(argc, argv, "dnr")) != EOF)
    261 		switch (c) {
    262 		case 'd':
    263 			debug = 1;
    264 			break;
    265 		case 'n':
    266 			break;
    267 		case 'r':
    268 			/* Compatibility */
    269 			break;
    270 		default:
    271 			fprintf(stderr, "Usage: mountd [-dn] [export_file]\n");
    272 			exit(1);
    273 		};
    274 	argc -= optind;
    275 	argv += optind;
    276 	grphead = (struct grouplist *)NULL;
    277 	exphead = (struct exportlist *)NULL;
    278 	mlhead = (struct mountlist *)NULL;
    279 	if (argc == 1) {
    280 		strncpy(exname, *argv, MAXPATHLEN-1);
    281 		exname[MAXPATHLEN-1] = '\0';
    282 	} else
    283 		strcpy(exname, _PATH_EXPORTS);
    284 	openlog("mountd", LOG_PID, LOG_DAEMON);
    285 	if (debug)
    286 		fprintf(stderr, "Getting export list.\n");
    287 	get_exportlist();
    288 	if (debug)
    289 		fprintf(stderr, "Getting mount list.\n");
    290 	get_mountlist();
    291 	if (debug)
    292 		fprintf(stderr, "Here we go.\n");
    293 	if (debug == 0) {
    294 		daemon(0, 0);
    295 		signal(SIGINT, SIG_IGN);
    296 		signal(SIGQUIT, SIG_IGN);
    297 	}
    298 	signal(SIGHUP, (void (*) __P((int))) get_exportlist);
    299 	signal(SIGTERM, (void (*) __P((int))) send_umntall);
    300 	{ FILE *pidfile = fopen(_PATH_MOUNTDPID, "w");
    301 	  if (pidfile != NULL) {
    302 		fprintf(pidfile, "%d\n", getpid());
    303 		fclose(pidfile);
    304 	  }
    305 	}
    306 	if ((udptransp = svcudp_create(RPC_ANYSOCK)) == NULL ||
    307 	    (tcptransp = svctcp_create(RPC_ANYSOCK, 0, 0)) == NULL) {
    308 		syslog(LOG_ERR, "Can't create socket");
    309 		exit(1);
    310 	}
    311 	pmap_unset(RPCPROG_MNT, RPCMNT_VER1);
    312 	pmap_unset(RPCPROG_MNT, RPCMNT_VER3);
    313 	if (!svc_register(udptransp, RPCPROG_MNT, RPCMNT_VER1, mntsrv,
    314 		IPPROTO_UDP) ||
    315 	    !svc_register(udptransp, RPCPROG_MNT, RPCMNT_VER3, mntsrv,
    316 		IPPROTO_UDP) ||
    317 	    !svc_register(tcptransp, RPCPROG_MNT, RPCMNT_VER1, mntsrv,
    318 		IPPROTO_TCP) ||
    319 	    !svc_register(tcptransp, RPCPROG_MNT, RPCMNT_VER3, mntsrv,
    320 		IPPROTO_TCP)) {
    321 		syslog(LOG_ERR, "Can't register mount");
    322 		exit(1);
    323 	}
    324 	svc_run();
    325 	syslog(LOG_ERR, "Mountd died");
    326 	exit(1);
    327 }
    328 
    329 /*
    330  * The mount rpc service
    331  */
    332 void
    333 mntsrv(rqstp, transp)
    334 	struct svc_req *rqstp;
    335 	SVCXPRT *transp;
    336 {
    337 	struct exportlist *ep;
    338 	struct dirlist *dp;
    339 	struct fhreturn fhr;
    340 	struct stat stb;
    341 	struct statfs fsb;
    342 	struct hostent *hp;
    343 	struct in_addr saddr;
    344 	u_short sport;
    345 	char rpcpath[RPCMNT_PATHLEN+1], dirpath[MAXPATHLEN];
    346 	long bad = EACCES;
    347 	int defset, hostset, ret;
    348 	sigset_t sighup_mask;
    349 
    350 	sigemptyset(&sighup_mask);
    351 	sigaddset(&sighup_mask, SIGHUP);
    352 	saddr = transp->xp_raddr.sin_addr;
    353 	sport = ntohs(transp->xp_raddr.sin_port);
    354 	hp = (struct hostent *)NULL;
    355 	switch (rqstp->rq_proc) {
    356 	case NULLPROC:
    357 		if (!svc_sendreply(transp, xdr_void, (caddr_t)NULL))
    358 			syslog(LOG_ERR, "Can't send reply");
    359 		return;
    360 	case RPCMNT_MOUNT:
    361 		if (!svc_getargs(transp, xdr_dir, rpcpath)) {
    362 			svcerr_decode(transp);
    363 			return;
    364 		}
    365 
    366 		/*
    367 		 * Get the real pathname and make sure it is a file or
    368 		 * directory that exists.
    369 		 */
    370 		if (realpath(rpcpath, dirpath) == 0 ||
    371 		    stat(dirpath, &stb) < 0 ||
    372 		    (!S_ISDIR(stb.st_mode) && !S_ISREG(stb.st_mode)) ||
    373 		    statfs(dirpath, &fsb) < 0) {
    374 			chdir("/");	/* Just in case realpath doesn't */
    375 			if (debug)
    376 				fprintf(stderr, "stat failed on %s\n", dirpath);
    377 			if (!svc_sendreply(transp, xdr_long, (caddr_t)&bad))
    378 				syslog(LOG_ERR, "Can't send reply");
    379 			return;
    380 		}
    381 
    382 		/* Check in the exports list */
    383 		sigprocmask(SIG_BLOCK, &sighup_mask, NULL);
    384 		ep = ex_search(&fsb.f_fsid);
    385 		hostset = defset = 0;
    386 		if (ep && (chk_host(ep->ex_defdir, saddr.s_addr, &defset,
    387 		    &hostset) || ((dp = dirp_search(ep->ex_dirl, dirpath)) &&
    388 		     chk_host(dp, saddr.s_addr, &defset, &hostset)) ||
    389 		     (defset && scan_tree(ep->ex_defdir, saddr.s_addr) == 0 &&
    390 		      scan_tree(ep->ex_dirl, saddr.s_addr) == 0))) {
    391 			if (sport >= IPPORT_RESERVED &&
    392 			    !(hostset & DP_NORESMNT)) {
    393 				syslog(LOG_NOTICE,
    394 				       "Refused mount RPC from host %s port %d",
    395 				       inet_ntoa(saddr), sport);
    396 				svcerr_weakauth(transp);
    397 				return;
    398 			}
    399 			if (hostset & DP_HOSTSET)
    400 				fhr.fhr_flag = hostset;
    401 			else
    402 				fhr.fhr_flag = defset;
    403 			fhr.fhr_vers = rqstp->rq_vers;
    404 			/* Get the file handle */
    405 			memset(&fhr.fhr_fh, 0, sizeof(nfsfh_t));
    406 			if (getfh(dirpath, (fhandle_t *)&fhr.fhr_fh) < 0) {
    407 				bad = errno;
    408 				syslog(LOG_ERR, "Can't get fh for %s", dirpath);
    409 				if (!svc_sendreply(transp, xdr_long,
    410 				    (caddr_t)&bad))
    411 					syslog(LOG_ERR, "Can't send reply");
    412 				sigprocmask(SIG_UNBLOCK, &sighup_mask, NULL);
    413 				return;
    414 			}
    415 			if (!svc_sendreply(transp, xdr_fhs, (caddr_t)&fhr))
    416 				syslog(LOG_ERR, "Can't send reply");
    417 			if (hp == NULL)
    418 				hp = gethostbyaddr((caddr_t)&saddr,
    419 				    sizeof(saddr), AF_INET);
    420 			if (hp)
    421 				add_mlist(hp->h_name, dirpath, hostset);
    422 			else
    423 				add_mlist(inet_ntoa(transp->xp_raddr.sin_addr),
    424 					dirpath, hostset);
    425 			if (debug)
    426 				fprintf(stderr, "Mount successful.\n");
    427 		} else {
    428 			if (!svc_sendreply(transp, xdr_long, (caddr_t)&bad))
    429 				syslog(LOG_ERR, "Can't send reply");
    430 		}
    431 		sigprocmask(SIG_UNBLOCK, &sighup_mask, NULL);
    432 		return;
    433 	case RPCMNT_DUMP:
    434 		if (!svc_sendreply(transp, xdr_mlist, (caddr_t)NULL))
    435 			syslog(LOG_ERR, "Can't send reply");
    436 		return;
    437 	case RPCMNT_UMOUNT:
    438 		if (!svc_getargs(transp, xdr_dir, dirpath)) {
    439 			svcerr_decode(transp);
    440 			return;
    441 		}
    442 		hp = gethostbyaddr((caddr_t)&saddr, sizeof(saddr), AF_INET);
    443 		if (hp)
    444 			ret = del_mlist(hp->h_name, dirpath,
    445 			    (struct sockaddr *)&transp->xp_raddr);
    446 		ret |= del_mlist(inet_ntoa(transp->xp_raddr.sin_addr), dirpath,
    447 			    (struct sockaddr *)&transp->xp_raddr);
    448 		if (ret) {
    449 			svcerr_weakauth(transp);
    450 			return;
    451 		}
    452 		if (!svc_sendreply(transp, xdr_void, (caddr_t)NULL))
    453 			syslog(LOG_ERR, "Can't send reply");
    454 		return;
    455 	case RPCMNT_UMNTALL:
    456 		hp = gethostbyaddr((caddr_t)&saddr, sizeof(saddr), AF_INET);
    457 		if (hp)
    458 			ret = del_mlist(hp->h_name, (char *)NULL,
    459 			    (struct sockaddr *)&transp->xp_raddr);
    460 		ret |= del_mlist(inet_ntoa(transp->xp_raddr.sin_addr),
    461 			    (char *)NULL,
    462 			    (struct sockaddr *)&transp->xp_raddr);
    463 		if (ret) {
    464 			svcerr_weakauth(transp);
    465 			return;
    466 		}
    467 
    468 		if (!svc_sendreply(transp, xdr_void, (caddr_t)NULL))
    469 			syslog(LOG_ERR, "Can't send reply");
    470 		return;
    471 	case RPCMNT_EXPORT:
    472 		if (!svc_sendreply(transp, xdr_explist, (caddr_t)NULL))
    473 			syslog(LOG_ERR, "Can't send reply");
    474 		return;
    475 	default:
    476 		svcerr_noproc(transp);
    477 		return;
    478 	}
    479 }
    480 
    481 /*
    482  * Xdr conversion for a dirpath string
    483  */
    484 int
    485 xdr_dir(xdrsp, dirp)
    486 	XDR *xdrsp;
    487 	char *dirp;
    488 {
    489 	return (xdr_string(xdrsp, &dirp, RPCMNT_PATHLEN));
    490 }
    491 
    492 /*
    493  * Xdr routine to generate file handle reply
    494  */
    495 int
    496 xdr_fhs(xdrsp, cp)
    497 	XDR *xdrsp;
    498 	caddr_t cp;
    499 {
    500 	register struct fhreturn *fhrp = (struct fhreturn *)cp;
    501 	long ok = 0, len, auth;
    502 
    503 	if (!xdr_long(xdrsp, &ok))
    504 		return (0);
    505 	switch (fhrp->fhr_vers) {
    506 	case 1:
    507 		return (xdr_opaque(xdrsp, (caddr_t)&fhrp->fhr_fh, NFSX_V2FH));
    508 	case 3:
    509 		len = NFSX_V3FH;
    510 		if (!xdr_long(xdrsp, &len))
    511 			return (0);
    512 		if (!xdr_opaque(xdrsp, (caddr_t)&fhrp->fhr_fh, len))
    513 			return (0);
    514 		if (fhrp->fhr_flag & DP_KERB)
    515 			auth = RPCAUTH_KERB4;
    516 		else
    517 			auth = RPCAUTH_UNIX;
    518 		len = 1;
    519 		if (!xdr_long(xdrsp, &len))
    520 			return (0);
    521 		return (xdr_long(xdrsp, &auth));
    522 	};
    523 	return (0);
    524 }
    525 
    526 int
    527 xdr_mlist(xdrsp, cp)
    528 	XDR *xdrsp;
    529 	caddr_t cp;
    530 {
    531 	struct mountlist *mlp;
    532 	int true = 1;
    533 	int false = 0;
    534 	char *strp;
    535 
    536 	mlp = mlhead;
    537 	while (mlp) {
    538 		if (!xdr_bool(xdrsp, &true))
    539 			return (0);
    540 		strp = &mlp->ml_host[0];
    541 		if (!xdr_string(xdrsp, &strp, RPCMNT_NAMELEN))
    542 			return (0);
    543 		strp = &mlp->ml_dirp[0];
    544 		if (!xdr_string(xdrsp, &strp, RPCMNT_PATHLEN))
    545 			return (0);
    546 		mlp = mlp->ml_next;
    547 	}
    548 	if (!xdr_bool(xdrsp, &false))
    549 		return (0);
    550 	return (1);
    551 }
    552 
    553 /*
    554  * Xdr conversion for export list
    555  */
    556 int
    557 xdr_explist(xdrsp, cp)
    558 	XDR *xdrsp;
    559 	caddr_t cp;
    560 {
    561 	struct exportlist *ep;
    562 	int false = 0;
    563 	int putdef;
    564 	sigset_t sighup_mask;
    565 
    566 	sigemptyset(&sighup_mask);
    567 	sigaddset(&sighup_mask, SIGHUP);
    568 	sigprocmask(SIG_BLOCK, &sighup_mask, NULL);
    569 	ep = exphead;
    570 	while (ep) {
    571 		putdef = 0;
    572 		if (put_exlist(ep->ex_dirl, xdrsp, ep->ex_defdir, &putdef))
    573 			goto errout;
    574 		if (ep->ex_defdir && putdef == 0 &&
    575 			put_exlist(ep->ex_defdir, xdrsp, (struct dirlist *)NULL,
    576 			&putdef))
    577 			goto errout;
    578 		ep = ep->ex_next;
    579 	}
    580 	sigprocmask(SIG_UNBLOCK, &sighup_mask, NULL);
    581 	if (!xdr_bool(xdrsp, &false))
    582 		return (0);
    583 	return (1);
    584 errout:
    585 	sigprocmask(SIG_UNBLOCK, &sighup_mask, NULL);
    586 	return (0);
    587 }
    588 
    589 /*
    590  * Called from xdr_explist() to traverse the tree and export the
    591  * directory paths.
    592  */
    593 int
    594 put_exlist(dp, xdrsp, adp, putdefp)
    595 	struct dirlist *dp;
    596 	XDR *xdrsp;
    597 	struct dirlist *adp;
    598 	int *putdefp;
    599 {
    600 	struct grouplist *grp;
    601 	struct hostlist *hp;
    602 	int true = 1;
    603 	int false = 0;
    604 	int gotalldir = 0;
    605 	char *strp;
    606 
    607 	if (dp) {
    608 		if (put_exlist(dp->dp_left, xdrsp, adp, putdefp))
    609 			return (1);
    610 		if (!xdr_bool(xdrsp, &true))
    611 			return (1);
    612 		strp = dp->dp_dirp;
    613 		if (!xdr_string(xdrsp, &strp, RPCMNT_PATHLEN))
    614 			return (1);
    615 		if (adp && !strcmp(dp->dp_dirp, adp->dp_dirp)) {
    616 			gotalldir = 1;
    617 			*putdefp = 1;
    618 		}
    619 		if ((dp->dp_flag & DP_DEFSET) == 0 &&
    620 		    (gotalldir == 0 || (adp->dp_flag & DP_DEFSET) == 0)) {
    621 			hp = dp->dp_hosts;
    622 			while (hp) {
    623 				grp = hp->ht_grp;
    624 				if (grp->gr_type == GT_HOST) {
    625 					if (!xdr_bool(xdrsp, &true))
    626 						return (1);
    627 					strp = grp->gr_ptr.gt_hostent->h_name;
    628 					if (!xdr_string(xdrsp, &strp,
    629 					    RPCMNT_NAMELEN))
    630 						return (1);
    631 				} else if (grp->gr_type == GT_NET) {
    632 					if (!xdr_bool(xdrsp, &true))
    633 						return (1);
    634 					strp = grp->gr_ptr.gt_net.nt_name;
    635 					if (!xdr_string(xdrsp, &strp,
    636 					    RPCMNT_NAMELEN))
    637 						return (1);
    638 				}
    639 				hp = hp->ht_next;
    640 				if (gotalldir && hp == (struct hostlist *)NULL) {
    641 					hp = adp->dp_hosts;
    642 					gotalldir = 0;
    643 				}
    644 			}
    645 		}
    646 		if (!xdr_bool(xdrsp, &false))
    647 			return (1);
    648 		if (put_exlist(dp->dp_right, xdrsp, adp, putdefp))
    649 			return (1);
    650 	}
    651 	return (0);
    652 }
    653 
    654 #define LINESIZ	10240
    655 char line[LINESIZ];
    656 FILE *exp_file;
    657 
    658 /*
    659  * Get the export list
    660  */
    661 void
    662 get_exportlist()
    663 {
    664 	struct exportlist *ep, *ep2;
    665 	struct grouplist *grp, *tgrp;
    666 	struct exportlist **epp;
    667 	struct dirlist *dirhead;
    668 	struct statfs fsb, *fsp;
    669 	struct hostent *hpe;
    670 	struct ucred anon;
    671 	char *cp, *endcp, *dirp, *hst, *usr, *dom, savedc;
    672 	int len, has_host, exflags, got_nondir, dirplen, num, i, netgrp;
    673 
    674 	/*
    675 	 * First, get rid of the old list
    676 	 */
    677 	ep = exphead;
    678 	while (ep) {
    679 		ep2 = ep;
    680 		ep = ep->ex_next;
    681 		free_exp(ep2);
    682 	}
    683 	exphead = (struct exportlist *)NULL;
    684 
    685 	grp = grphead;
    686 	while (grp) {
    687 		tgrp = grp;
    688 		grp = grp->gr_next;
    689 		free_grp(tgrp);
    690 	}
    691 	grphead = (struct grouplist *)NULL;
    692 
    693 	/*
    694 	 * And delete exports that are in the kernel for all local
    695 	 * file systems.
    696 	 * XXX: Should know how to handle all local exportable file systems
    697 	 *      instead of just MOUNT_FFS.
    698 	 */
    699 	num = getmntinfo(&fsp, MNT_NOWAIT);
    700 	for (i = 0; i < num; i++) {
    701 		union {
    702 			struct ufs_args ua;
    703 			struct iso_args ia;
    704 			struct mfs_args ma;
    705 			struct msdosfs_args da;
    706 			struct adosfs_args aa;
    707 		} targs;
    708 
    709 		if (!strncmp(fsp->f_fstypename, MOUNT_MFS, MFSNAMELEN) ||
    710 		    !strncmp(fsp->f_fstypename, MOUNT_FFS, MFSNAMELEN) ||
    711 		    !strncmp(fsp->f_fstypename, MOUNT_EXT2FS, MFSNAMELEN) ||
    712 		    !strncmp(fsp->f_fstypename, MOUNT_MSDOS, MFSNAMELEN) ||
    713 		    !strncmp(fsp->f_fstypename, MOUNT_ADOSFS, MFSNAMELEN) ||
    714 		    !strncmp(fsp->f_fstypename, MOUNT_CD9660, MFSNAMELEN)) {
    715 			bzero((char *)&targs, sizeof(targs));
    716 			targs.ua.fspec = NULL;
    717 			targs.ua.export.ex_flags = MNT_DELEXPORT;
    718 			if (mount(fsp->f_fstypename, fsp->f_mntonname,
    719 				  fsp->f_flags | MNT_UPDATE,
    720 				  (caddr_t)&targs) < 0)
    721 				syslog(LOG_ERR, "Can't delete exports for %s",
    722 				       fsp->f_mntonname);
    723 		}
    724 		fsp++;
    725 	}
    726 
    727 	/*
    728 	 * Read in the exports file and build the list, calling
    729 	 * mount() as we go along to push the export rules into the kernel.
    730 	 */
    731 	if ((exp_file = fopen(exname, "r")) == NULL) {
    732 		syslog(LOG_ERR, "Can't open %s: %m", exname);
    733 		exit(2);
    734 	}
    735 	dirhead = (struct dirlist *)NULL;
    736 	while (get_line()) {
    737 		if (debug)
    738 			fprintf(stderr, "Got line %s\n", line);
    739 		cp = line;
    740 		nextfield(&cp, &endcp);
    741 		if (*cp == '#')
    742 			goto nextline;
    743 
    744 		/*
    745 		 * Set defaults.
    746 		 */
    747 		has_host = FALSE;
    748 		anon = def_anon;
    749 		exflags = MNT_EXPORTED;
    750 		got_nondir = 0;
    751 		opt_flags = 0;
    752 		ep = (struct exportlist *)NULL;
    753 
    754 		/*
    755 		 * Create new exports list entry
    756 		 */
    757 		len = endcp-cp;
    758 		tgrp = grp = get_grp();
    759 		while (len > 0) {
    760 			if (len > RPCMNT_NAMELEN) {
    761 			    getexp_err(ep, tgrp);
    762 			    goto nextline;
    763 			}
    764 			if (*cp == '-') {
    765 			    if (ep == (struct exportlist *)NULL) {
    766 				getexp_err(ep, tgrp);
    767 				goto nextline;
    768 			    }
    769 			    if (debug)
    770 				fprintf(stderr, "doing opt %s\n", cp);
    771 			    got_nondir = 1;
    772 			    if (do_opt(&cp, &endcp, ep, grp, &has_host,
    773 				&exflags, &anon)) {
    774 				getexp_err(ep, tgrp);
    775 				goto nextline;
    776 			    }
    777 			} else if (*cp == '/') {
    778 			    savedc = *endcp;
    779 			    *endcp = '\0';
    780 			    if (check_dirpath(cp) &&
    781 				statfs(cp, &fsb) >= 0) {
    782 				if (got_nondir) {
    783 				    syslog(LOG_ERR, "Dirs must be first");
    784 				    getexp_err(ep, tgrp);
    785 				    goto nextline;
    786 				}
    787 				if (ep) {
    788 				    if (ep->ex_fs.val[0] != fsb.f_fsid.val[0] ||
    789 					ep->ex_fs.val[1] != fsb.f_fsid.val[1]) {
    790 					getexp_err(ep, tgrp);
    791 					goto nextline;
    792 				    }
    793 				} else {
    794 				    /*
    795 				     * See if this directory is already
    796 				     * in the list.
    797 				     */
    798 				    ep = ex_search(&fsb.f_fsid);
    799 				    if (ep == (struct exportlist *)NULL) {
    800 					ep = get_exp();
    801 					ep->ex_fs = fsb.f_fsid;
    802 					ep->ex_fsdir = (char *)
    803 					    malloc(strlen(fsb.f_mntonname) + 1);
    804 					if (ep->ex_fsdir)
    805 					    strcpy(ep->ex_fsdir,
    806 						fsb.f_mntonname);
    807 					else
    808 					    out_of_mem();
    809 					if (debug)
    810 					  fprintf(stderr,
    811 					      "Making new ep fs=0x%x,0x%x\n",
    812 					      fsb.f_fsid.val[0],
    813 					      fsb.f_fsid.val[1]);
    814 				    } else if (debug)
    815 					fprintf(stderr,
    816 					    "Found ep fs=0x%x,0x%x\n",
    817 					    fsb.f_fsid.val[0],
    818 					    fsb.f_fsid.val[1]);
    819 				}
    820 
    821 				/*
    822 				 * Add dirpath to export mount point.
    823 				 */
    824 				dirp = add_expdir(&dirhead, cp, len);
    825 				dirplen = len;
    826 			    } else {
    827 				getexp_err(ep, tgrp);
    828 				goto nextline;
    829 			    }
    830 			    *endcp = savedc;
    831 			} else {
    832 			    savedc = *endcp;
    833 			    *endcp = '\0';
    834 			    got_nondir = 1;
    835 			    if (ep == (struct exportlist *)NULL) {
    836 				getexp_err(ep, tgrp);
    837 				goto nextline;
    838 			    }
    839 
    840 			    /*
    841 			     * Get the host or netgroup.
    842 			     */
    843 			    setnetgrent(cp);
    844 			    netgrp = getnetgrent(&hst, &usr, &dom);
    845 			    do {
    846 				if (has_host) {
    847 				    grp->gr_next = get_grp();
    848 				    grp = grp->gr_next;
    849 				}
    850 				if (netgrp) {
    851 				    if (get_host(hst, grp)) {
    852 					syslog(LOG_ERR, "Bad netgroup %s", cp);
    853 					getexp_err(ep, tgrp);
    854 					endnetgrent();
    855 					goto nextline;
    856 				    }
    857 				} else if (get_host(cp, grp)) {
    858 				    getexp_err(ep, tgrp);
    859 				    goto nextline;
    860 				}
    861 				has_host = TRUE;
    862 			    } while (netgrp && getnetgrent(&hst, &usr, &dom));
    863 			    endnetgrent();
    864 			    *endcp = savedc;
    865 			}
    866 			cp = endcp;
    867 			nextfield(&cp, &endcp);
    868 			len = endcp - cp;
    869 		}
    870 		if (check_options(dirhead)) {
    871 			getexp_err(ep, tgrp);
    872 			goto nextline;
    873 		}
    874 		if (!has_host) {
    875 			grp->gr_type = GT_HOST;
    876 			if (debug)
    877 				fprintf(stderr, "Adding a default entry\n");
    878 			/* add a default group and make the grp list NULL */
    879 			hpe = (struct hostent *)malloc(sizeof(struct hostent));
    880 			if (hpe == (struct hostent *)NULL)
    881 				out_of_mem();
    882 			hpe->h_name = "Default";
    883 			hpe->h_addrtype = AF_INET;
    884 			hpe->h_length = sizeof (u_int32_t);
    885 			hpe->h_addr_list = (char **)NULL;
    886 			grp->gr_ptr.gt_hostent = hpe;
    887 
    888 		/*
    889 		 * Don't allow a network export coincide with a list of
    890 		 * host(s) on the same line.
    891 		 */
    892 		} else if ((opt_flags & OP_NET) && tgrp->gr_next) {
    893 			getexp_err(ep, tgrp);
    894 			goto nextline;
    895 		}
    896 
    897 		/*
    898 		 * Loop through hosts, pushing the exports into the kernel.
    899 		 * After loop, tgrp points to the start of the list and
    900 		 * grp points to the last entry in the list.
    901 		 */
    902 		grp = tgrp;
    903 		do {
    904 		    if (do_mount(ep, grp, exflags, &anon, dirp,
    905 			dirplen, &fsb)) {
    906 			getexp_err(ep, tgrp);
    907 			goto nextline;
    908 		    }
    909 		} while (grp->gr_next && (grp = grp->gr_next));
    910 
    911 		/*
    912 		 * Success. Update the data structures.
    913 		 */
    914 		if (has_host) {
    915 			hang_dirp(dirhead, tgrp, ep, opt_flags);
    916 			grp->gr_next = grphead;
    917 			grphead = tgrp;
    918 		} else {
    919 			hang_dirp(dirhead, (struct grouplist *)NULL, ep,
    920 				opt_flags);
    921 			free_grp(grp);
    922 		}
    923 		dirhead = (struct dirlist *)NULL;
    924 		if ((ep->ex_flag & EX_LINKED) == 0) {
    925 			ep2 = exphead;
    926 			epp = &exphead;
    927 
    928 			/*
    929 			 * Insert in the list in alphabetical order.
    930 			 */
    931 			while (ep2 && strcmp(ep2->ex_fsdir, ep->ex_fsdir) < 0) {
    932 				epp = &ep2->ex_next;
    933 				ep2 = ep2->ex_next;
    934 			}
    935 			if (ep2)
    936 				ep->ex_next = ep2;
    937 			*epp = ep;
    938 			ep->ex_flag |= EX_LINKED;
    939 		}
    940 nextline:
    941 		if (dirhead) {
    942 			free_dir(dirhead);
    943 			dirhead = (struct dirlist *)NULL;
    944 		}
    945 	}
    946 	fclose(exp_file);
    947 }
    948 
    949 /*
    950  * Allocate an export list element
    951  */
    952 struct exportlist *
    953 get_exp()
    954 {
    955 	struct exportlist *ep;
    956 
    957 	ep = (struct exportlist *)malloc(sizeof (struct exportlist));
    958 	if (ep == (struct exportlist *)NULL)
    959 		out_of_mem();
    960 	memset(ep, 0, sizeof(struct exportlist));
    961 	return (ep);
    962 }
    963 
    964 /*
    965  * Allocate a group list element
    966  */
    967 struct grouplist *
    968 get_grp()
    969 {
    970 	struct grouplist *gp;
    971 
    972 	gp = (struct grouplist *)malloc(sizeof (struct grouplist));
    973 	if (gp == (struct grouplist *)NULL)
    974 		out_of_mem();
    975 	memset(gp, 0, sizeof(struct grouplist));
    976 	return (gp);
    977 }
    978 
    979 /*
    980  * Clean up upon an error in get_exportlist().
    981  */
    982 void
    983 getexp_err(ep, grp)
    984 	struct exportlist *ep;
    985 	struct grouplist *grp;
    986 {
    987 	struct grouplist *tgrp;
    988 
    989 	syslog(LOG_ERR, "Bad exports list line %s", line);
    990 	if (ep && (ep->ex_flag & EX_LINKED) == 0)
    991 		free_exp(ep);
    992 	while (grp) {
    993 		tgrp = grp;
    994 		grp = grp->gr_next;
    995 		free_grp(tgrp);
    996 	}
    997 }
    998 
    999 /*
   1000  * Search the export list for a matching fs.
   1001  */
   1002 struct exportlist *
   1003 ex_search(fsid)
   1004 	fsid_t *fsid;
   1005 {
   1006 	struct exportlist *ep;
   1007 
   1008 	ep = exphead;
   1009 	while (ep) {
   1010 		if (ep->ex_fs.val[0] == fsid->val[0] &&
   1011 		    ep->ex_fs.val[1] == fsid->val[1])
   1012 			return (ep);
   1013 		ep = ep->ex_next;
   1014 	}
   1015 	return (ep);
   1016 }
   1017 
   1018 /*
   1019  * Add a directory path to the list.
   1020  */
   1021 char *
   1022 add_expdir(dpp, cp, len)
   1023 	struct dirlist **dpp;
   1024 	char *cp;
   1025 	int len;
   1026 {
   1027 	struct dirlist *dp;
   1028 
   1029 	dp = (struct dirlist *)malloc(sizeof (struct dirlist) + len);
   1030 	dp->dp_left = *dpp;
   1031 	dp->dp_right = (struct dirlist *)NULL;
   1032 	dp->dp_flag = 0;
   1033 	dp->dp_hosts = (struct hostlist *)NULL;
   1034 	strcpy(dp->dp_dirp, cp);
   1035 	*dpp = dp;
   1036 	return (dp->dp_dirp);
   1037 }
   1038 
   1039 /*
   1040  * Hang the dir list element off the dirpath binary tree as required
   1041  * and update the entry for host.
   1042  */
   1043 void
   1044 hang_dirp(dp, grp, ep, flags)
   1045 	struct dirlist *dp;
   1046 	struct grouplist *grp;
   1047 	struct exportlist *ep;
   1048 	int flags;
   1049 {
   1050 	struct hostlist *hp;
   1051 	struct dirlist *dp2;
   1052 
   1053 	if (flags & OP_ALLDIRS) {
   1054 		if (ep->ex_defdir)
   1055 			free((caddr_t)dp);
   1056 		else
   1057 			ep->ex_defdir = dp;
   1058 		if (grp == (struct grouplist *)NULL) {
   1059 			ep->ex_defdir->dp_flag |= DP_DEFSET;
   1060 			if (flags & OP_KERB)
   1061 				ep->ex_defdir->dp_flag |= DP_KERB;
   1062 			if (flags & OP_NORESMNT)
   1063 				ep->ex_defdir->dp_flag |= DP_NORESMNT;
   1064 		} else while (grp) {
   1065 			hp = get_ht();
   1066 			if (flags & OP_KERB)
   1067 				hp->ht_flag |= DP_KERB;
   1068 			if (flags & OP_NORESMNT)
   1069 				hp->ht_flag |= DP_NORESMNT;
   1070 			hp->ht_grp = grp;
   1071 			hp->ht_next = ep->ex_defdir->dp_hosts;
   1072 			ep->ex_defdir->dp_hosts = hp;
   1073 			grp = grp->gr_next;
   1074 		}
   1075 	} else {
   1076 
   1077 		/*
   1078 		 * Loop throught the directories adding them to the tree.
   1079 		 */
   1080 		while (dp) {
   1081 			dp2 = dp->dp_left;
   1082 			add_dlist(&ep->ex_dirl, dp, grp, flags);
   1083 			dp = dp2;
   1084 		}
   1085 	}
   1086 }
   1087 
   1088 /*
   1089  * Traverse the binary tree either updating a node that is already there
   1090  * for the new directory or adding the new node.
   1091  */
   1092 void
   1093 add_dlist(dpp, newdp, grp, flags)
   1094 	struct dirlist **dpp;
   1095 	struct dirlist *newdp;
   1096 	struct grouplist *grp;
   1097 	int flags;
   1098 {
   1099 	struct dirlist *dp;
   1100 	struct hostlist *hp;
   1101 	int cmp;
   1102 
   1103 	dp = *dpp;
   1104 	if (dp) {
   1105 		cmp = strcmp(dp->dp_dirp, newdp->dp_dirp);
   1106 		if (cmp > 0) {
   1107 			add_dlist(&dp->dp_left, newdp, grp, flags);
   1108 			return;
   1109 		} else if (cmp < 0) {
   1110 			add_dlist(&dp->dp_right, newdp, grp, flags);
   1111 			return;
   1112 		} else
   1113 			free((caddr_t)newdp);
   1114 	} else {
   1115 		dp = newdp;
   1116 		dp->dp_left = (struct dirlist *)NULL;
   1117 		*dpp = dp;
   1118 	}
   1119 	if (grp) {
   1120 
   1121 		/*
   1122 		 * Hang all of the host(s) off of the directory point.
   1123 		 */
   1124 		do {
   1125 			hp = get_ht();
   1126 			if (flags & OP_KERB)
   1127 				hp->ht_flag |= DP_KERB;
   1128 			if (flags & OP_NORESMNT)
   1129 				hp->ht_flag |= DP_NORESMNT;
   1130 			hp->ht_grp = grp;
   1131 			hp->ht_next = dp->dp_hosts;
   1132 			dp->dp_hosts = hp;
   1133 			grp = grp->gr_next;
   1134 		} while (grp);
   1135 	} else {
   1136 		dp->dp_flag |= DP_DEFSET;
   1137 		if (flags & OP_KERB)
   1138 			dp->dp_flag |= DP_KERB;
   1139 		if (flags & OP_NORESMNT)
   1140 			dp->dp_flag |= DP_NORESMNT;
   1141 	}
   1142 }
   1143 
   1144 /*
   1145  * Search for a dirpath on the export point.
   1146  */
   1147 struct dirlist *
   1148 dirp_search(dp, dirpath)
   1149 	struct dirlist *dp;
   1150 	char *dirpath;
   1151 {
   1152 	int cmp;
   1153 
   1154 	if (dp) {
   1155 		cmp = strcmp(dp->dp_dirp, dirpath);
   1156 		if (cmp > 0)
   1157 			return (dirp_search(dp->dp_left, dirpath));
   1158 		else if (cmp < 0)
   1159 			return (dirp_search(dp->dp_right, dirpath));
   1160 		else
   1161 			return (dp);
   1162 	}
   1163 	return (dp);
   1164 }
   1165 
   1166 /*
   1167  * Scan for a host match in a directory tree.
   1168  */
   1169 int
   1170 chk_host(dp, saddr, defsetp, hostsetp)
   1171 	struct dirlist *dp;
   1172 	u_int32_t saddr;
   1173 	int *defsetp;
   1174 	int *hostsetp;
   1175 {
   1176 	struct hostlist *hp;
   1177 	struct grouplist *grp;
   1178 	u_int32_t **addrp;
   1179 
   1180 	if (dp) {
   1181 		if (dp->dp_flag & DP_DEFSET)
   1182 			*defsetp = dp->dp_flag;
   1183 		hp = dp->dp_hosts;
   1184 		while (hp) {
   1185 			grp = hp->ht_grp;
   1186 			switch (grp->gr_type) {
   1187 			case GT_HOST:
   1188 			    addrp = (u_int32_t **)
   1189 				grp->gr_ptr.gt_hostent->h_addr_list;
   1190 			    while (*addrp) {
   1191 				if (**addrp == saddr) {
   1192 				    *hostsetp = (hp->ht_flag | DP_HOSTSET);
   1193 				    return (1);
   1194 				}
   1195 				addrp++;
   1196 			    }
   1197 			    break;
   1198 			case GT_NET:
   1199 			    if ((saddr & grp->gr_ptr.gt_net.nt_mask) ==
   1200 				grp->gr_ptr.gt_net.nt_net) {
   1201 				*hostsetp = (hp->ht_flag | DP_HOSTSET);
   1202 				return (1);
   1203 			    }
   1204 			    break;
   1205 			};
   1206 			hp = hp->ht_next;
   1207 		}
   1208 	}
   1209 	return (0);
   1210 }
   1211 
   1212 /*
   1213  * Scan tree for a host that matches the address.
   1214  */
   1215 int
   1216 scan_tree(dp, saddr)
   1217 	struct dirlist *dp;
   1218 	u_int32_t saddr;
   1219 {
   1220 	int defset, hostset;
   1221 
   1222 	if (dp) {
   1223 		if (scan_tree(dp->dp_left, saddr))
   1224 			return (1);
   1225 		if (chk_host(dp, saddr, &defset, &hostset))
   1226 			return (1);
   1227 		if (scan_tree(dp->dp_right, saddr))
   1228 			return (1);
   1229 	}
   1230 	return (0);
   1231 }
   1232 
   1233 /*
   1234  * Traverse the dirlist tree and free it up.
   1235  */
   1236 void
   1237 free_dir(dp)
   1238 	struct dirlist *dp;
   1239 {
   1240 
   1241 	if (dp) {
   1242 		free_dir(dp->dp_left);
   1243 		free_dir(dp->dp_right);
   1244 		free_host(dp->dp_hosts);
   1245 		free((caddr_t)dp);
   1246 	}
   1247 }
   1248 
   1249 /*
   1250  * Parse the option string and update fields.
   1251  * Option arguments may either be -<option>=<value> or
   1252  * -<option> <value>
   1253  */
   1254 int
   1255 do_opt(cpp, endcpp, ep, grp, has_hostp, exflagsp, cr)
   1256 	char **cpp, **endcpp;
   1257 	struct exportlist *ep;
   1258 	struct grouplist *grp;
   1259 	int *has_hostp;
   1260 	int *exflagsp;
   1261 	struct ucred *cr;
   1262 {
   1263 	char *cpoptarg, *cpoptend;
   1264 	char *cp, *endcp, *cpopt, savedc, savedc2;
   1265 	int allflag, usedarg;
   1266 
   1267 	cpopt = *cpp;
   1268 	cpopt++;
   1269 	cp = *endcpp;
   1270 	savedc = *cp;
   1271 	*cp = '\0';
   1272 	while (cpopt && *cpopt) {
   1273 		allflag = 1;
   1274 		usedarg = -2;
   1275 		if (cpoptend = strchr(cpopt, ',')) {
   1276 			*cpoptend++ = '\0';
   1277 			if (cpoptarg = strchr(cpopt, '='))
   1278 				*cpoptarg++ = '\0';
   1279 		} else {
   1280 			if (cpoptarg = strchr(cpopt, '='))
   1281 				*cpoptarg++ = '\0';
   1282 			else {
   1283 				*cp = savedc;
   1284 				nextfield(&cp, &endcp);
   1285 				**endcpp = '\0';
   1286 				if (endcp > cp && *cp != '-') {
   1287 					cpoptarg = cp;
   1288 					savedc2 = *endcp;
   1289 					*endcp = '\0';
   1290 					usedarg = 0;
   1291 				}
   1292 			}
   1293 		}
   1294 		if (!strcmp(cpopt, "ro") || !strcmp(cpopt, "o")) {
   1295 			*exflagsp |= MNT_EXRDONLY;
   1296 		} else if (cpoptarg && (!strcmp(cpopt, "maproot") ||
   1297 		    !(allflag = strcmp(cpopt, "mapall")) ||
   1298 		    !strcmp(cpopt, "root") || !strcmp(cpopt, "r"))) {
   1299 			usedarg++;
   1300 			parsecred(cpoptarg, cr);
   1301 			if (allflag == 0) {
   1302 				*exflagsp |= MNT_EXPORTANON;
   1303 				opt_flags |= OP_MAPALL;
   1304 			} else
   1305 				opt_flags |= OP_MAPROOT;
   1306 		} else if (!strcmp(cpopt, "kerb") || !strcmp(cpopt, "k")) {
   1307 			*exflagsp |= MNT_EXKERB;
   1308 			opt_flags |= OP_KERB;
   1309 		} else if (cpoptarg && (!strcmp(cpopt, "mask") ||
   1310 			!strcmp(cpopt, "m"))) {
   1311 			if (get_net(cpoptarg, &grp->gr_ptr.gt_net, 1)) {
   1312 				syslog(LOG_ERR, "Bad mask: %s", cpoptarg);
   1313 				return (1);
   1314 			}
   1315 			usedarg++;
   1316 			opt_flags |= OP_MASK;
   1317 		} else if (cpoptarg && (!strcmp(cpopt, "network") ||
   1318 			!strcmp(cpopt, "n"))) {
   1319 			if (grp->gr_type != GT_NULL) {
   1320 				syslog(LOG_ERR, "Network/host conflict");
   1321 				return (1);
   1322 			} else if (get_net(cpoptarg, &grp->gr_ptr.gt_net, 0)) {
   1323 				syslog(LOG_ERR, "Bad net: %s", cpoptarg);
   1324 				return (1);
   1325 			}
   1326 			grp->gr_type = GT_NET;
   1327 			*has_hostp = 1;
   1328 			usedarg++;
   1329 			opt_flags |= OP_NET;
   1330 		} else if (!strcmp(cpopt, "alldirs")) {
   1331 			opt_flags |= OP_ALLDIRS;
   1332 		} else if (!strcmp(cpopt, "noresvmnt")) {
   1333 			opt_flags |= OP_NORESMNT;
   1334 		} else if (!strcmp(cpopt, "noresvport")) {
   1335 			opt_flags |= OP_NORESPORT;
   1336 			*exflagsp |= MNT_EXNORESPORT;
   1337 		} else if (!strcmp(cpopt, "public")) {
   1338 			*exflagsp |= (MNT_EXNORESPORT|MNT_EXPUBLIC);
   1339 			opt_flags |= OP_NORESPORT;
   1340 		} else if (!strcmp(cpopt, "webnfs")) {
   1341 			*exflagsp |= (MNT_EXNORESPORT|MNT_EXPUBLIC|MNT_EXRDONLY|
   1342 				      MNT_EXPORTANON);
   1343 			opt_flags |= (OP_MAPALL|OP_NORESPORT);
   1344 		} else if (cpoptarg && !strcmp(cpopt, "index")) {
   1345 			ep->ex_indexfile = strdup(cpoptarg);
   1346 #ifdef ISO
   1347 		} else if (cpoptarg && !strcmp(cpopt, "iso")) {
   1348 			if (get_isoaddr(cpoptarg, grp)) {
   1349 				syslog(LOG_ERR, "Bad iso addr: %s", cpoptarg);
   1350 				return (1);
   1351 			}
   1352 			*has_hostp = 1;
   1353 			usedarg++;
   1354 			opt_flags |= OP_ISO;
   1355 #endif /* ISO */
   1356 		} else {
   1357 			syslog(LOG_ERR, "Bad opt %s", cpopt);
   1358 			return (1);
   1359 		}
   1360 		if (usedarg >= 0) {
   1361 			*endcp = savedc2;
   1362 			**endcpp = savedc;
   1363 			if (usedarg > 0) {
   1364 				*cpp = cp;
   1365 				*endcpp = endcp;
   1366 			}
   1367 			return (0);
   1368 		}
   1369 		cpopt = cpoptend;
   1370 	}
   1371 	**endcpp = savedc;
   1372 	return (0);
   1373 }
   1374 
   1375 /*
   1376  * Translate a character string to the corresponding list of network
   1377  * addresses for a hostname.
   1378  */
   1379 int
   1380 get_host(cp, grp)
   1381 	char *cp;
   1382 	struct grouplist *grp;
   1383 {
   1384 	struct hostent *hp, *nhp;
   1385 	char **addrp, **naddrp;
   1386 	struct hostent t_host;
   1387 	int i;
   1388 	u_int32_t saddr;
   1389 	char *aptr[2];
   1390 
   1391 	if (grp->gr_type != GT_NULL)
   1392 		return (1);
   1393 	if ((hp = gethostbyname(cp)) == NULL) {
   1394 		if (isdigit(*cp)) {
   1395 			saddr = inet_addr(cp);
   1396 			if (saddr == -1) {
   1397 				syslog(LOG_ERR, "inet_addr failed for %s", cp);
   1398 				return (1);
   1399 			}
   1400 			if ((hp = gethostbyaddr((caddr_t)&saddr, sizeof (saddr),
   1401 				AF_INET)) == NULL) {
   1402 				hp = &t_host;
   1403 				hp->h_name = cp;
   1404 				hp->h_addrtype = AF_INET;
   1405 				hp->h_length = sizeof (u_int32_t);
   1406 				hp->h_addr_list = aptr;
   1407 				aptr[0] = (char *)&saddr;
   1408 				aptr[1] = (char *)NULL;
   1409 			}
   1410 		} else {
   1411 			syslog(LOG_ERR, "gethostbyname failed for %s: %s", cp,
   1412 				hstrerror(h_errno));
   1413 			return (1);
   1414 		}
   1415 	}
   1416 	grp->gr_type = GT_HOST;
   1417 	nhp = grp->gr_ptr.gt_hostent = (struct hostent *)
   1418 		malloc(sizeof(struct hostent));
   1419 	if (nhp == (struct hostent *)NULL)
   1420 		out_of_mem();
   1421 	memcpy(nhp, hp, sizeof(struct hostent));
   1422 	i = strlen(hp->h_name)+1;
   1423 	nhp->h_name = (char *)malloc(i);
   1424 	if (nhp->h_name == (char *)NULL)
   1425 		out_of_mem();
   1426 	memcpy(nhp->h_name, hp->h_name, i);
   1427 	addrp = hp->h_addr_list;
   1428 	i = 1;
   1429 	while (*addrp++)
   1430 		i++;
   1431 	naddrp = nhp->h_addr_list = (char **)
   1432 		malloc(i*sizeof(char *));
   1433 	if (naddrp == (char **)NULL)
   1434 		out_of_mem();
   1435 	addrp = hp->h_addr_list;
   1436 	while (*addrp) {
   1437 		*naddrp = (char *)
   1438 		    malloc(hp->h_length);
   1439 		if (*naddrp == (char *)NULL)
   1440 		    out_of_mem();
   1441 		memcpy(*naddrp, *addrp, hp->h_length);
   1442 		addrp++;
   1443 		naddrp++;
   1444 	}
   1445 	*naddrp = (char *)NULL;
   1446 	if (debug)
   1447 		fprintf(stderr, "got host %s\n", hp->h_name);
   1448 	return (0);
   1449 }
   1450 
   1451 /*
   1452  * Free up an exports list component
   1453  */
   1454 void
   1455 free_exp(ep)
   1456 	struct exportlist *ep;
   1457 {
   1458 
   1459 	if (ep->ex_defdir) {
   1460 		free_host(ep->ex_defdir->dp_hosts);
   1461 		free((caddr_t)ep->ex_defdir);
   1462 	}
   1463 	if (ep->ex_fsdir)
   1464 		free(ep->ex_fsdir);
   1465 	if (ep->ex_indexfile)
   1466 		free(ep->ex_indexfile);
   1467 	free_dir(ep->ex_dirl);
   1468 	free((caddr_t)ep);
   1469 }
   1470 
   1471 /*
   1472  * Free hosts.
   1473  */
   1474 void
   1475 free_host(hp)
   1476 	struct hostlist *hp;
   1477 {
   1478 	struct hostlist *hp2;
   1479 
   1480 	while (hp) {
   1481 		hp2 = hp;
   1482 		hp = hp->ht_next;
   1483 		free((caddr_t)hp2);
   1484 	}
   1485 }
   1486 
   1487 struct hostlist *
   1488 get_ht()
   1489 {
   1490 	struct hostlist *hp;
   1491 
   1492 	hp = (struct hostlist *)malloc(sizeof (struct hostlist));
   1493 	if (hp == (struct hostlist *)NULL)
   1494 		out_of_mem();
   1495 	hp->ht_next = (struct hostlist *)NULL;
   1496 	hp->ht_flag = 0;
   1497 	return (hp);
   1498 }
   1499 
   1500 #ifdef ISO
   1501 /*
   1502  * Translate an iso address.
   1503  */
   1504 get_isoaddr(cp, grp)
   1505 	char *cp;
   1506 	struct grouplist *grp;
   1507 {
   1508 	struct iso_addr *isop;
   1509 	struct sockaddr_iso *isoaddr;
   1510 
   1511 	if (grp->gr_type != GT_NULL)
   1512 		return (1);
   1513 	if ((isop = iso_addr(cp)) == NULL) {
   1514 		syslog(LOG_ERR,
   1515 		    "iso_addr failed, ignored");
   1516 		return (1);
   1517 	}
   1518 	isoaddr = (struct sockaddr_iso *)
   1519 	    malloc(sizeof (struct sockaddr_iso));
   1520 	if (isoaddr == (struct sockaddr_iso *)NULL)
   1521 		out_of_mem();
   1522 	memset(isoaddr, 0, sizeof(struct sockaddr_iso));
   1523 	memcpy(&isoaddr->siso_addr, isop, sizeof(struct iso_addr));
   1524 	isoaddr->siso_len = sizeof(struct sockaddr_iso);
   1525 	isoaddr->siso_family = AF_ISO;
   1526 	grp->gr_type = GT_ISO;
   1527 	grp->gr_ptr.gt_isoaddr = isoaddr;
   1528 	return (0);
   1529 }
   1530 #endif	/* ISO */
   1531 
   1532 /*
   1533  * Out of memory, fatal
   1534  */
   1535 void
   1536 out_of_mem()
   1537 {
   1538 
   1539 	syslog(LOG_ERR, "Out of memory");
   1540 	exit(2);
   1541 }
   1542 
   1543 /*
   1544  * Do the mount syscall with the update flag to push the export info into
   1545  * the kernel.
   1546  */
   1547 int
   1548 do_mount(ep, grp, exflags, anoncrp, dirp, dirplen, fsb)
   1549 	struct exportlist *ep;
   1550 	struct grouplist *grp;
   1551 	int exflags;
   1552 	struct ucred *anoncrp;
   1553 	char *dirp;
   1554 	int dirplen;
   1555 	struct statfs *fsb;
   1556 {
   1557 	char *cp = (char *)NULL;
   1558 	u_int32_t **addrp;
   1559 	int done;
   1560 	char savedc = '\0';
   1561 	struct sockaddr_in sin, imask;
   1562 	union {
   1563 		struct ufs_args ua;
   1564 		struct iso_args ia;
   1565 		struct mfs_args ma;
   1566 		struct msdosfs_args da;
   1567 		struct adosfs_args aa;
   1568 	} args;
   1569 	u_int32_t net;
   1570 
   1571 	args.ua.fspec = 0;
   1572 	args.ua.export.ex_flags = exflags;
   1573 	args.ua.export.ex_anon = *anoncrp;
   1574 	args.ua.export.ex_indexfile = ep->ex_indexfile;
   1575 	memset(&sin, 0, sizeof(sin));
   1576 	memset(&imask, 0, sizeof(imask));
   1577 	sin.sin_family = AF_INET;
   1578 	sin.sin_len = sizeof(sin);
   1579 	imask.sin_family = AF_INET;
   1580 	imask.sin_len = sizeof(sin);
   1581 	if (grp->gr_type == GT_HOST)
   1582 		addrp = (u_int32_t **)grp->gr_ptr.gt_hostent->h_addr_list;
   1583 	else
   1584 		addrp = (u_int32_t **)NULL;
   1585 	done = FALSE;
   1586 	while (!done) {
   1587 		switch (grp->gr_type) {
   1588 		case GT_HOST:
   1589 			if (addrp) {
   1590 				sin.sin_addr.s_addr = **addrp;
   1591 				args.ua.export.ex_addrlen = sizeof(sin);
   1592 			} else
   1593 				args.ua.export.ex_addrlen = 0;
   1594 			args.ua.export.ex_addr = (struct sockaddr *)&sin;
   1595 			args.ua.export.ex_masklen = 0;
   1596 			break;
   1597 		case GT_NET:
   1598 			if (grp->gr_ptr.gt_net.nt_mask)
   1599 			    imask.sin_addr.s_addr = grp->gr_ptr.gt_net.nt_mask;
   1600 			else {
   1601 			    net = ntohl(grp->gr_ptr.gt_net.nt_net);
   1602 			    if (IN_CLASSA(net))
   1603 				imask.sin_addr.s_addr = inet_addr("255.0.0.0");
   1604 			    else if (IN_CLASSB(net))
   1605 				imask.sin_addr.s_addr =
   1606 				    inet_addr("255.255.0.0");
   1607 			    else
   1608 				imask.sin_addr.s_addr =
   1609 				    inet_addr("255.255.255.0");
   1610 			    grp->gr_ptr.gt_net.nt_mask = imask.sin_addr.s_addr;
   1611 			}
   1612 			sin.sin_addr.s_addr = grp->gr_ptr.gt_net.nt_net;
   1613 			args.ua.export.ex_addr = (struct sockaddr *)&sin;
   1614 			args.ua.export.ex_addrlen = sizeof (sin);
   1615 			args.ua.export.ex_mask = (struct sockaddr *)&imask;
   1616 			args.ua.export.ex_masklen = sizeof (imask);
   1617 			break;
   1618 #ifdef ISO
   1619 		case GT_ISO:
   1620 			args.ua.export.ex_addr =
   1621 				(struct sockaddr *)grp->gr_ptr.gt_isoaddr;
   1622 			args.ua.export.ex_addrlen =
   1623 				sizeof(struct sockaddr_iso);
   1624 			args.ua.export.ex_masklen = 0;
   1625 			break;
   1626 #endif	/* ISO */
   1627 		default:
   1628 			syslog(LOG_ERR, "Bad grouptype");
   1629 			if (cp)
   1630 				*cp = savedc;
   1631 			return (1);
   1632 		};
   1633 
   1634 		/*
   1635 		 * XXX:
   1636 		 * Maybe I should just use the fsb->f_mntonname path instead
   1637 		 * of looping back up the dirp to the mount point??
   1638 		 * Also, needs to know how to export all types of local
   1639 		 * exportable file systems and not just MOUNT_FFS.
   1640 		 */
   1641 		while (mount(fsb->f_fstypename, dirp,
   1642 		       fsb->f_flags | MNT_UPDATE, (caddr_t)&args) < 0) {
   1643 			if (cp)
   1644 				*cp-- = savedc;
   1645 			else
   1646 				cp = dirp + dirplen - 1;
   1647 			if (errno == EPERM) {
   1648 				syslog(LOG_ERR,
   1649 				    "Can't change attributes for %s to %s.\n",
   1650 				    dirp, (grp->gr_type == GT_HOST) ?
   1651 					grp->gr_ptr.gt_hostent->h_name :
   1652 				    (grp->gr_type == GT_NET) ?
   1653 					grp->gr_ptr.gt_net.nt_name :
   1654 					"Unknown");
   1655 				return (1);
   1656 			}
   1657 			if (opt_flags & OP_ALLDIRS) {
   1658 				syslog(LOG_ERR, "Could not remount %s: %m",
   1659 					dirp);
   1660 				return (1);
   1661 			}
   1662 			/* back up over the last component */
   1663 			while (*cp == '/' && cp > dirp)
   1664 				cp--;
   1665 			while (*(cp - 1) != '/' && cp > dirp)
   1666 				cp--;
   1667 			if (cp == dirp) {
   1668 				if (debug)
   1669 					fprintf(stderr,"mnt unsucc\n");
   1670 				syslog(LOG_ERR, "Can't export %s", dirp);
   1671 				return (1);
   1672 			}
   1673 			savedc = *cp;
   1674 			*cp = '\0';
   1675 		}
   1676 		if (addrp) {
   1677 			++addrp;
   1678 			if (*addrp == (u_int32_t *)NULL)
   1679 				done = TRUE;
   1680 		} else
   1681 			done = TRUE;
   1682 	}
   1683 	if (cp)
   1684 		*cp = savedc;
   1685 	return (0);
   1686 }
   1687 
   1688 /*
   1689  * Translate a net address.
   1690  */
   1691 int
   1692 get_net(cp, net, maskflg)
   1693 	char *cp;
   1694 	struct netmsk *net;
   1695 	int maskflg;
   1696 {
   1697 	struct netent *np;
   1698 	long netaddr;
   1699 	struct in_addr inetaddr, inetaddr2;
   1700 	char *name;
   1701 
   1702 	if (np = getnetbyname(cp))
   1703 		inetaddr = inet_makeaddr(np->n_net, 0);
   1704 	else if (isdigit(*cp)) {
   1705 		if ((netaddr = inet_network(cp)) == -1)
   1706 			return (1);
   1707 		inetaddr = inet_makeaddr(netaddr, 0);
   1708 		/*
   1709 		 * Due to arbritrary subnet masks, you don't know how many
   1710 		 * bits to shift the address to make it into a network,
   1711 		 * however you do know how to make a network address into
   1712 		 * a host with host == 0 and then compare them.
   1713 		 * (What a pest)
   1714 		 */
   1715 		if (!maskflg) {
   1716 			setnetent(0);
   1717 			while (np = getnetent()) {
   1718 				inetaddr2 = inet_makeaddr(np->n_net, 0);
   1719 				if (inetaddr2.s_addr == inetaddr.s_addr)
   1720 					break;
   1721 			}
   1722 			endnetent();
   1723 		}
   1724 	} else
   1725 		return (1);
   1726 	if (maskflg)
   1727 		net->nt_mask = inetaddr.s_addr;
   1728 	else {
   1729 		if (np)
   1730 			name = np->n_name;
   1731 		else
   1732 			name = inet_ntoa(inetaddr);
   1733 		net->nt_name = (char *)malloc(strlen(name) + 1);
   1734 		if (net->nt_name == (char *)NULL)
   1735 			out_of_mem();
   1736 		strcpy(net->nt_name, name);
   1737 		net->nt_net = inetaddr.s_addr;
   1738 	}
   1739 	return (0);
   1740 }
   1741 
   1742 /*
   1743  * Parse out the next white space separated field
   1744  */
   1745 void
   1746 nextfield(cp, endcp)
   1747 	char **cp;
   1748 	char **endcp;
   1749 {
   1750 	char *p;
   1751 
   1752 	p = *cp;
   1753 	while (*p == ' ' || *p == '\t')
   1754 		p++;
   1755 	if (*p == '\n' || *p == '\0')
   1756 		*cp = *endcp = p;
   1757 	else {
   1758 		*cp = p++;
   1759 		while (*p != ' ' && *p != '\t' && *p != '\n' && *p != '\0')
   1760 			p++;
   1761 		*endcp = p;
   1762 	}
   1763 }
   1764 
   1765 /*
   1766  * Get an exports file line. Skip over blank lines and handle line
   1767  * continuations.
   1768  */
   1769 int
   1770 get_line()
   1771 {
   1772 	char *p, *cp;
   1773 	int len;
   1774 	int totlen, cont_line;
   1775 
   1776 	/*
   1777 	 * Loop around ignoring blank lines and getting all continuation lines.
   1778 	 */
   1779 	p = line;
   1780 	totlen = 0;
   1781 	do {
   1782 		if (fgets(p, LINESIZ - totlen, exp_file) == NULL)
   1783 			return (0);
   1784 		len = strlen(p);
   1785 		cp = p + len - 1;
   1786 		cont_line = 0;
   1787 		while (cp >= p &&
   1788 		    (*cp == ' ' || *cp == '\t' || *cp == '\n' || *cp == '\\')) {
   1789 			if (*cp == '\\')
   1790 				cont_line = 1;
   1791 			cp--;
   1792 			len--;
   1793 		}
   1794 		*++cp = '\0';
   1795 		if (len > 0) {
   1796 			totlen += len;
   1797 			if (totlen >= LINESIZ) {
   1798 				syslog(LOG_ERR, "Exports line too long");
   1799 				exit(2);
   1800 			}
   1801 			p = cp;
   1802 		}
   1803 	} while (totlen == 0 || cont_line);
   1804 	return (1);
   1805 }
   1806 
   1807 /*
   1808  * Parse a description of a credential.
   1809  */
   1810 void
   1811 parsecred(namelist, cr)
   1812 	char *namelist;
   1813 	struct ucred *cr;
   1814 {
   1815 	char *name;
   1816 	int cnt;
   1817 	char *names;
   1818 	struct passwd *pw;
   1819 	struct group *gr;
   1820 	int ngroups, groups[NGROUPS + 1];
   1821 
   1822 	/*
   1823 	 * Set up the unpriviledged user.
   1824 	 */
   1825 	cr->cr_ref = 1;
   1826 	cr->cr_uid = -2;
   1827 	cr->cr_gid = -2;
   1828 	cr->cr_ngroups = 0;
   1829 	/*
   1830 	 * Get the user's password table entry.
   1831 	 */
   1832 	names = strsep(&namelist, " \t\n");
   1833 	name = strsep(&names, ":");
   1834 	if (isdigit(*name) || *name == '-')
   1835 		pw = getpwuid(atoi(name));
   1836 	else
   1837 		pw = getpwnam(name);
   1838 	/*
   1839 	 * Credentials specified as those of a user.
   1840 	 */
   1841 	if (names == NULL) {
   1842 		if (pw == NULL) {
   1843 			syslog(LOG_ERR, "Unknown user: %s", name);
   1844 			return;
   1845 		}
   1846 		cr->cr_uid = pw->pw_uid;
   1847 		ngroups = NGROUPS + 1;
   1848 		if (getgrouplist(pw->pw_name, pw->pw_gid, groups, &ngroups))
   1849 			syslog(LOG_ERR, "Too many groups");
   1850 		/*
   1851 		 * Convert from int's to gid_t's and compress out duplicate
   1852 		 */
   1853 		cr->cr_ngroups = ngroups - 1;
   1854 		cr->cr_gid = groups[0];
   1855 		for (cnt = 1; cnt < ngroups; cnt++)
   1856 			cr->cr_groups[cnt - 1] = groups[cnt];
   1857 		return;
   1858 	}
   1859 	/*
   1860 	 * Explicit credential specified as a colon separated list:
   1861 	 *	uid:gid:gid:...
   1862 	 */
   1863 	if (pw != NULL)
   1864 		cr->cr_uid = pw->pw_uid;
   1865 	else if (isdigit(*name) || *name == '-')
   1866 		cr->cr_uid = atoi(name);
   1867 	else {
   1868 		syslog(LOG_ERR, "Unknown user: %s", name);
   1869 		return;
   1870 	}
   1871 	cr->cr_ngroups = 0;
   1872 	while (names != NULL && *names != '\0' && cr->cr_ngroups < NGROUPS) {
   1873 		name = strsep(&names, ":");
   1874 		if (isdigit(*name) || *name == '-') {
   1875 			cr->cr_groups[cr->cr_ngroups++] = atoi(name);
   1876 		} else {
   1877 			if ((gr = getgrnam(name)) == NULL) {
   1878 				syslog(LOG_ERR, "Unknown group: %s", name);
   1879 				continue;
   1880 			}
   1881 			cr->cr_groups[cr->cr_ngroups++] = gr->gr_gid;
   1882 		}
   1883 	}
   1884 	if (names != NULL && *names != '\0' && cr->cr_ngroups == NGROUPS)
   1885 		syslog(LOG_ERR, "Too many groups");
   1886 }
   1887 
   1888 #define	STRSIZ	(RPCMNT_NAMELEN+RPCMNT_PATHLEN+50)
   1889 /*
   1890  * Routines that maintain the remote mounttab
   1891  */
   1892 void
   1893 get_mountlist()
   1894 {
   1895 	struct mountlist *mlp, **mlpp;
   1896 	char *host, *dirp, *cp;
   1897 	char str[STRSIZ];
   1898 	FILE *mlfile;
   1899 
   1900 	if ((mlfile = fopen(_PATH_RMOUNTLIST, "r")) == NULL) {
   1901 		syslog(LOG_ERR, "Can't open %s: %m", _PATH_RMOUNTLIST);
   1902 		return;
   1903 	}
   1904 	mlpp = &mlhead;
   1905 	while (fgets(str, STRSIZ, mlfile) != NULL) {
   1906 		cp = str;
   1907 		host = strsep(&cp, " \t\n");
   1908 		dirp = strsep(&cp, " \t\n");
   1909 		if (host == NULL || dirp == NULL)
   1910 			continue;
   1911 		mlp = (struct mountlist *)malloc(sizeof (*mlp));
   1912 		strncpy(mlp->ml_host, host, RPCMNT_NAMELEN);
   1913 		mlp->ml_host[RPCMNT_NAMELEN] = '\0';
   1914 		strncpy(mlp->ml_dirp, dirp, RPCMNT_PATHLEN);
   1915 		mlp->ml_dirp[RPCMNT_PATHLEN] = '\0';
   1916 		mlp->ml_next = (struct mountlist *)NULL;
   1917 		*mlpp = mlp;
   1918 		mlpp = &mlp->ml_next;
   1919 	}
   1920 	fclose(mlfile);
   1921 }
   1922 
   1923 int
   1924 del_mlist(hostp, dirp, saddr)
   1925 	char *hostp, *dirp;
   1926 	struct sockaddr *saddr;
   1927 {
   1928 	struct mountlist *mlp, **mlpp;
   1929 	struct mountlist *mlp2;
   1930 	struct sockaddr_in *sin = (struct sockaddr_in *)saddr;
   1931 	FILE *mlfile;
   1932 	int fnd = 0, ret = 0;
   1933 
   1934 	mlpp = &mlhead;
   1935 	mlp = mlhead;
   1936 	while (mlp) {
   1937 		if (!strcmp(mlp->ml_host, hostp) &&
   1938 		    (!dirp || !strcmp(mlp->ml_dirp, dirp))) {
   1939 			if (!(mlp->ml_flag & DP_NORESMNT) &&
   1940 			    ntohs(sin->sin_port) >= IPPORT_RESERVED) {
   1941 				syslog(LOG_NOTICE,
   1942 				   "Umount request for %s:%s from %s refused\n",
   1943 				   mlp->ml_host, mlp->ml_dirp,
   1944 			 	   inet_ntoa(sin->sin_addr));
   1945 				ret = -1;
   1946 				continue;
   1947 			}
   1948 			fnd = 1;
   1949 			mlp2 = mlp;
   1950 			*mlpp = mlp = mlp->ml_next;
   1951 			free((caddr_t)mlp2);
   1952 		} else {
   1953 			mlpp = &mlp->ml_next;
   1954 			mlp = mlp->ml_next;
   1955 		}
   1956 	}
   1957 	if (fnd) {
   1958 		if ((mlfile = fopen(_PATH_RMOUNTLIST, "w")) == NULL) {
   1959 			syslog(LOG_ERR,"Can't update %s: %m", _PATH_RMOUNTLIST);
   1960 			return;
   1961 		}
   1962 		mlp = mlhead;
   1963 		while (mlp) {
   1964 			fprintf(mlfile, "%s %s\n", mlp->ml_host, mlp->ml_dirp);
   1965 			mlp = mlp->ml_next;
   1966 		}
   1967 		fclose(mlfile);
   1968 	}
   1969 	return ret;
   1970 }
   1971 
   1972 void
   1973 add_mlist(hostp, dirp, flags)
   1974 	char *hostp, *dirp;
   1975 	int flags;
   1976 {
   1977 	struct mountlist *mlp, **mlpp;
   1978 	FILE *mlfile;
   1979 
   1980 	mlpp = &mlhead;
   1981 	mlp = mlhead;
   1982 	while (mlp) {
   1983 		if (!strcmp(mlp->ml_host, hostp) && !strcmp(mlp->ml_dirp, dirp))
   1984 			return;
   1985 		mlpp = &mlp->ml_next;
   1986 		mlp = mlp->ml_next;
   1987 	}
   1988 	mlp = (struct mountlist *)malloc(sizeof (*mlp));
   1989 	strncpy(mlp->ml_host, hostp, RPCMNT_NAMELEN);
   1990 	mlp->ml_host[RPCMNT_NAMELEN] = '\0';
   1991 	strncpy(mlp->ml_dirp, dirp, RPCMNT_PATHLEN);
   1992 	mlp->ml_dirp[RPCMNT_PATHLEN] = '\0';
   1993 	mlp->ml_flag = flags;
   1994 	mlp->ml_next = (struct mountlist *)NULL;
   1995 	*mlpp = mlp;
   1996 	if ((mlfile = fopen(_PATH_RMOUNTLIST, "a")) == NULL) {
   1997 		syslog(LOG_ERR, "Can't update %s: %m", _PATH_RMOUNTLIST);
   1998 		return;
   1999 	}
   2000 	fprintf(mlfile, "%s %s\n", mlp->ml_host, mlp->ml_dirp);
   2001 	fclose(mlfile);
   2002 }
   2003 
   2004 /*
   2005  * This function is called via. SIGTERM when the system is going down.
   2006  * It sends a broadcast RPCMNT_UMNTALL.
   2007  */
   2008 void
   2009 send_umntall()
   2010 {
   2011 	(void) clnt_broadcast(RPCPROG_MNT, RPCMNT_VER1, RPCMNT_UMNTALL,
   2012 		xdr_void, (caddr_t)0, xdr_void, (caddr_t)0, umntall_each);
   2013 	exit(0);
   2014 }
   2015 
   2016 int
   2017 umntall_each(resultsp, raddr)
   2018 	caddr_t resultsp;
   2019 	struct sockaddr_in *raddr;
   2020 {
   2021 	return (1);
   2022 }
   2023 
   2024 /*
   2025  * Free up a group list.
   2026  */
   2027 void
   2028 free_grp(grp)
   2029 	struct grouplist *grp;
   2030 {
   2031 	char **addrp;
   2032 
   2033 	if (grp->gr_type == GT_HOST) {
   2034 		if (grp->gr_ptr.gt_hostent->h_name) {
   2035 			addrp = grp->gr_ptr.gt_hostent->h_addr_list;
   2036 			while (addrp && *addrp)
   2037 				free(*addrp++);
   2038 			free((caddr_t)grp->gr_ptr.gt_hostent->h_addr_list);
   2039 			free(grp->gr_ptr.gt_hostent->h_name);
   2040 		}
   2041 		free((caddr_t)grp->gr_ptr.gt_hostent);
   2042 	} else if (grp->gr_type == GT_NET) {
   2043 		if (grp->gr_ptr.gt_net.nt_name)
   2044 			free(grp->gr_ptr.gt_net.nt_name);
   2045 	}
   2046 #ifdef ISO
   2047 	else if (grp->gr_type == GT_ISO)
   2048 		free((caddr_t)grp->gr_ptr.gt_isoaddr);
   2049 #endif
   2050 	free((caddr_t)grp);
   2051 }
   2052 
   2053 void
   2054 SYSLOG(int pri, const char *fmt, ...)
   2055 {
   2056 	va_list ap;
   2057 
   2058 	va_start(ap, fmt);
   2059 
   2060 	if (debug)
   2061 		vfprintf(stderr, fmt, ap);
   2062 	else
   2063 		vsyslog(pri, fmt, ap);
   2064 
   2065 	va_end(ap);
   2066 }
   2067 
   2068 /*
   2069  * Check options for consistency.
   2070  */
   2071 int
   2072 check_options(dp)
   2073 	struct dirlist *dp;
   2074 {
   2075 
   2076 	if (dp == (struct dirlist *)NULL)
   2077 	    return (1);
   2078 	if ((opt_flags & (OP_MAPROOT | OP_MAPALL)) == (OP_MAPROOT | OP_MAPALL) ||
   2079 	    (opt_flags & (OP_MAPROOT | OP_KERB)) == (OP_MAPROOT | OP_KERB) ||
   2080 	    (opt_flags & (OP_MAPALL | OP_KERB)) == (OP_MAPALL | OP_KERB)) {
   2081 	    syslog(LOG_ERR, "-mapall, -maproot and -kerb mutually exclusive");
   2082 	    return (1);
   2083 	}
   2084 	if ((opt_flags & OP_MASK) && (opt_flags & OP_NET) == 0) {
   2085 	    syslog(LOG_ERR, "-mask requires -net");
   2086 	    return (1);
   2087 	}
   2088 	if ((opt_flags & (OP_NET | OP_ISO)) == (OP_NET | OP_ISO)) {
   2089 	    syslog(LOG_ERR, "-net and -iso mutually exclusive");
   2090 	    return (1);
   2091 	}
   2092 	if ((opt_flags & OP_ALLDIRS) && dp->dp_left) {
   2093 	    syslog(LOG_ERR, "-alldir has multiple directories");
   2094 	    return (1);
   2095 	}
   2096 	return (0);
   2097 }
   2098 
   2099 /*
   2100  * Check an absolute directory path for any symbolic links. Return true
   2101  * if no symbolic links are found.
   2102  */
   2103 int
   2104 check_dirpath(dirp)
   2105 	char *dirp;
   2106 {
   2107 	char *cp;
   2108 	int ret = 1;
   2109 	struct stat sb;
   2110 
   2111 	cp = dirp + 1;
   2112 	while (*cp && ret) {
   2113 		if (*cp == '/') {
   2114 			*cp = '\0';
   2115 			if (lstat(dirp, &sb) < 0 || !S_ISDIR(sb.st_mode))
   2116 				ret = 0;
   2117 			*cp = '/';
   2118 		}
   2119 		cp++;
   2120 	}
   2121 	if (lstat(dirp, &sb) < 0 ||
   2122 	    (!S_ISDIR(sb.st_mode) && !S_ISREG(sb.st_mode)))
   2123 		ret = 0;
   2124 	return (ret);
   2125 }
   2126