BSD 4.4 Lite sbin Sources

Note:  XNSrouted and routed NOT imported here, they shall be imported with
usr.sbin.

3 files changed, 787 insertions, 0 deletions

diff --git a/sbin/mount_nfs/Makefile b/sbin/mount_nfs/Makefile
new file mode 100644
index 0000000..f33b461
--- /dev/null
+++ b/sbin/mount_nfs/Makefile
@@ -0,0 +1,14 @@
+#	@(#)Makefile	8.2 (Berkeley) 3/27/94
+
+PROG=	mount_nfs
+SRCS=	mount_nfs.c getmntopts.c
+MAN8=	mount_nfs.0
+
+MOUNT=	${.CURDIR}/../mount
+CFLAGS+= -DNFS -I${MOUNT}
+.PATH:	${MOUNT}
+
+DPADD=	${LIBRPC}
+LDADD=	-lrpc
+
+.include <bsd.prog.mk>
diff --git a/sbin/mount_nfs/mount_nfs.8 b/sbin/mount_nfs/mount_nfs.8
new file mode 100644
index 0000000..decac6e
--- /dev/null
+++ b/sbin/mount_nfs/mount_nfs.8
@@ -0,0 +1,222 @@
+.\" Copyright (c) 1992, 1993, 1994
+.\"	The Regents of the University of California.  All rights reserved.
+.\"
+.\" Redistribution and use in source and binary forms, with or without
+.\" modification, are permitted provided that the following conditions
+.\" are met:
+.\" 1. Redistributions of source code must retain the above copyright
+.\"    notice, this list of conditions and the following disclaimer.
+.\" 2. Redistributions in binary form must reproduce the above copyright
+.\"    notice, this list of conditions and the following disclaimer in the
+.\"    documentation and/or other materials provided with the distribution.
+.\" 3. All advertising materials mentioning features or use of this software
+.\"    must display the following acknowledgement:
+.\"	This product includes software developed by the University of
+.\"	California, Berkeley and its contributors.
+.\" 4. Neither the name of the University nor the names of its contributors
+.\"    may be used to endorse or promote products derived from this software
+.\"    without specific prior written permission.
+.\"
+.\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+.\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+.\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+.\" ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+.\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+.\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+.\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+.\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+.\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+.\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+.\" SUCH DAMAGE.
+.\"
+.\"	@(#)mount_nfs.8	8.2 (Berkeley) 3/27/94
+.\"
+.Dd March 27, 1994
+.Dt MOUNT_NFS 8
+.Os BSD 4.4
+.Sh NAME
+.Nm mount_nfs
+.Nd mount nfs file systems
+.Sh SYNOPSIS
+.Nm mount_nfs
+.Op Fl KMPTbcdiklqs
+.Op Fl D Ar deadthresh
+.Op Fl L Ar leaseterm
+.Op Fl R Ar retrycnt
+.Op Fl a Ar maxreadahead
+.Op Fl g Ar maxgroups
+.Op Fl m Ar realm
+.Op Fl o Ar options
+.Op Fl r Ar readsize
+.Op Fl t Ar timeout
+.Op Fl w Ar writesize
+.Op Fl x Ar retrans
+.Ar rhost:path node
+.Sh DESCRIPTION
+The
+.Nm mount_nfs
+command
+calls the
+.Xr mount 2
+system call to prepare and graft a remote nfs file system (rhost:path)
+on to the file system tree at the point
+.Ar node.
+This command is normally executed by
+.Xr mount 8 .
+It implements the mount protocol as described in RFC 1094, Appendix A.
+.Pp
+The options are:
+.Bl -tag -width indent
+.It Fl D
+Used with NQNFS to set the
+.Dq "dead server threshold"
+to the specified number of round trip timeout intervals.
+After a
+.Dq "dead server threshold"
+of retransmit timeouts,
+cached data for the unresponsive server is assumed to still be valid.
+Values may be set in the range of 1 - 9, with 9 referring to an
+.Dq "infinite dead threshold"
+(i.e. never assume cached data still valid).
+This option is not generally recommended and is really an experimental
+feature.
+.It Fl K
+Pass Kerberos authenticators to the server for client-to-server
+user-credential mapping.
+This may only be used over TCP mounts between 4.4BSD clients and servers.
+.It Fl L
+Used with NQNFS to set the lease term to the specified number of seconds.
+Only use this argument for mounts with a large round trip delay.
+Values are normally in the 10-30 second range.
+.It Fl M
+Assume that other clients are not writing a file concurrently with this client.
+This implements a slightly less strict consistency criteria than 4.3BSD-Reno
+did, that is more in line with most commercial client implementations.
+This is recommended for servers that do not support leasing.
+.It Fl P
+Use a reserved socket port number.
+This is useful for mounting servers that require clients to use a
+reserved port number.
+.It Fl R
+Set the retry count for doing the mount to the specified value.
+.It Fl T
+Use TCP transport instead of UDP.
+This is recommended for servers that are not on the same LAN cable as
+the client.
+(NB: This is NOT supported by most non-BSD servers.)
+.It Fl a
+Set the read-ahead count to the specified value.
+This may be in the range of 0 - 4, and determines how many blocks
+will be read ahead when a large file is being read sequentially.
+This is recommended for mounts with a large bandwidth * delay product.
+.It Fl b
+If an initial attempt to contact the server fails, fork off a child to keep
+trying the mount in the background.
+Useful for
+.Xr fstab 5 ,
+where the filesystem mount is not critical to multiuser operation.
+.It Fl c
+For UDP mount points, do not do a
+.Xr connect 2 .
+This must be used for servers that do not reply to requests from the
+standard port number.
+.It Fl d
+Do not estimate retransmit timeout dynamically.
+This may be useful for UDP mounts that exhibit high retry rates.
+.It Fl g
+Set the maximum size of the group list for the credentials to the
+specified value.
+This should be used for mounts on old servers that cannot handle a
+group list size of 16, as specified in RFC 1057.
+Try 8, if users in a lot of groups cannot get response from the mount
+point.
+.It Fl i
+Make the mount interruptible, which implies that file system calls that
+are delayed due to an unresponsive server will fail with EINTR when a
+termination signal is posted for the process.
+.It Fl k
+Used with NQNFS to specify
+.Dq get a lease
+for the file name being looked up.
+This is recommended unless the server is complaining about excessive
+lease load.
+.It Fl l
+Used with NQNFS to specify that the \fBReaddir_and_Lookup\fR RPC should
+be used.
+This option reduces RPC traffic for cases such as
+.Dq "ls -l" ,
+but increases the lease load on the server.
+This is recommended unless the server is complaining about excessive
+lease load.
+.It Fl m
+Set the Kerberos realm to the string argument.
+Used with the
+.Fl K
+option for mounts to other realms.
+.It Fl o
+Options are specified with a
+.Fl o
+flag followed by a comma separated string of options.
+See the
+.Xr mount 8
+man page for possible options and their meanings.
+.It Fl q
+Use the leasing extensions to the protocol to maintain cache consistency.
+This protocol, referred to as Not Quite Nfs (NQNFS),
+is only supported by 4.4BSD servers.
+.It Fl r
+Set the read data size to the specified value.
+It should be a power of 2 greater than or equal to 1024.
+This should be used for UDP mounts when the
+.Dq "fragments dropped due to timeout"
+value is getting large while actively using a mount point.
+(Use
+.Xr netstat 1
+with the
+.Fl s
+option to see what the
+.Dq "fragments dropped due to timeout"
+value is.)
+See the
+.Fl w
+option as well.
+.It Fl s
+A soft mount, which implies that file system calls will fail
+after \fBRetry\fR round trip timeout intervals.
+.It Fl t
+Set the initial retransmit timeout to the specified value.
+May be useful for fine tuning UDP mounts over internetworks
+with high packet loss rates or an overloaded server.
+Try increasing the interval if
+.Xr nfsstat 1
+shows high retransmit rates while the file system is active or reducing the
+value if there is a low retransmit rate but long response delay observed.
+.It Fl w
+Set the write data size to the specified value.
+Ditto the comments w.r.t. the
+.Fl r
+option, but using the
+.Dq "fragments dropped due to timeout"
+value on the server instead of the client.
+Note that both the
+.Fl r
+and
+.Fl w
+options should only be used as a last ditch effort at improving performance
+when mounting servers that do not support TCP mounts.
+.It Fl x
+Set the retransmit timeout count for soft mounts to the specified value.
+.El
+.Sh SEE ALSO
+.Xr mount 2 ,
+.Xr unmount 2 ,
+.Xr fstab 5 ,
+.Xr mount 8
+.Sh BUGS
+Due to the way that Sun RPC is implemented on top of UDP (unreliable datagram)
+transport, tuning such mounts is really a black art that can only be expected
+to have limited success.
+For clients mounting servers that are not on the same
+LAN cable or that tend to be overloaded,
+TCP transport is strongly recommended,
+but unfortunately this is restricted to mostly 4.4BSD servers.
diff --git a/sbin/mount_nfs/mount_nfs.c b/sbin/mount_nfs/mount_nfs.c
new file mode 100644
index 0000000..cbb3ddb
--- /dev/null
+++ b/sbin/mount_nfs/mount_nfs.c
@@ -0,0 +1,551 @@
+/*
+ * Copyright (c) 1992, 1993, 1994
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Rick Macklem at The University of Guelph.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+#ifndef lint
+static char copyright[] =
+"@(#) Copyright (c) 1992, 1993, 1994\n\
+	The Regents of the University of California.  All rights reserved.\n";
+#endif /* not lint */
+
+#ifndef lint
+static char sccsid[] = "@(#)mount_nfs.c	8.3 (Berkeley) 3/27/94";
+#endif /* not lint */
+
+#include <sys/param.h>
+#include <sys/mount.h>
+#include <sys/socket.h>
+#include <sys/socketvar.h>
+#include <sys/stat.h>
+#include <sys/syslog.h>
+
+#include <rpc/rpc.h>
+#include <rpc/pmap_clnt.h>
+#include <rpc/pmap_prot.h>
+
+#ifdef ISO
+#include <netiso/iso.h>
+#endif
+
+#ifdef KERBEROS
+#include <kerberosIV/des.h>
+#include <kerberosIV/krb.h>
+#endif
+
+#include <nfs/rpcv2.h>
+#include <nfs/nfsv2.h>
+#define KERNEL
+#include <nfs/nfs.h>
+#undef KERNEL
+#include <nfs/nqnfs.h>
+
+#include <arpa/inet.h>
+
+#include <ctype.h>
+#include <err.h>
+#include <errno.h>
+#include <fcntl.h>
+#include <netdb.h>
+#include <signal.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <strings.h>
+#include <unistd.h>
+
+#include "mntopts.h"
+
+struct mntopt mopts[] = {
+	MOPT_STDOPTS,
+	MOPT_FORCE,
+	MOPT_UPDATE,
+	{ NULL }
+};
+
+struct nfs_args nfsdefargs = {
+	(struct sockaddr *)0,
+	sizeof (struct sockaddr_in),
+	SOCK_DGRAM,
+	0,
+	(nfsv2fh_t *)0,
+	0,
+	NFS_WSIZE,
+	NFS_RSIZE,
+	NFS_TIMEO,
+	NFS_RETRANS,
+	NFS_MAXGRPS,
+	NFS_DEFRAHEAD,
+	NQ_DEFLEASE,
+	NQ_DEADTHRESH,
+	(char *)0,
+};
+
+struct nfhret {
+	u_long	stat;
+	nfsv2fh_t nfh;
+};
+#define	DEF_RETRY	10000
+#define	BGRND	1
+#define	ISBGRND	2
+int retrycnt = DEF_RETRY;
+int opflags = 0;
+
+#ifdef KERBEROS
+char inst[INST_SZ];
+char realm[REALM_SZ];
+KTEXT_ST kt;
+#endif
+
+int	getnfsargs __P((char *, struct nfs_args *));
+#ifdef ISO
+struct	iso_addr *iso_addr __P((const char *));
+#endif
+void	set_rpc_maxgrouplist __P((int));
+__dead	void usage __P((void));
+int	xdr_dir __P((XDR *, char *));
+int	xdr_fh __P((XDR *, struct nfhret *));
+
+int
+main(argc, argv)
+	int argc;
+	char *argv[];
+{
+	register int c;
+	register struct nfs_args *nfsargsp;
+	struct nfs_args nfsargs;
+	struct nfsd_cargs ncd;
+	int mntflags, i, nfssvc_flag, num;
+	char *name, *p, *spec;
+	int error = 0;
+#ifdef KERBEROS
+	uid_t last_ruid;
+#endif
+
+#ifdef KERBEROS
+	last_ruid = -1;
+	(void)strcpy(realm, KRB_REALM);
+#endif
+	retrycnt = DEF_RETRY;
+
+	mntflags = 0;
+	nfsargs = nfsdefargs;
+	nfsargsp = &nfsargs;
+	while ((c = getopt(argc, argv,
+	    "a:bcdD:g:iKklL:Mm:o:PpqR:r:sTt:w:x:")) != EOF)
+		switch (c) {
+		case 'a':
+			num = strtol(optarg, &p, 10);
+			if (*p || num < 0)
+				errx(1, "illegal -a value -- %s", optarg);
+			nfsargsp->readahead = num;
+			nfsargsp->flags |= NFSMNT_READAHEAD;
+			break;
+		case 'b':
+			opflags |= BGRND;
+			break;
+		case 'c':
+			nfsargsp->flags |= NFSMNT_NOCONN;
+			break;
+		case 'D':
+			num = strtol(optarg, &p, 10);
+			if (*p || num <= 0)
+				errx(1, "illegal -D value -- %s", optarg);
+			nfsargsp->deadthresh = num;
+			nfsargsp->flags |= NFSMNT_DEADTHRESH;
+			break;
+		case 'd':
+			nfsargsp->flags |= NFSMNT_DUMBTIMR;
+			break;
+		case 'g':
+			num = strtol(optarg, &p, 10);
+			if (*p || num <= 0)
+				errx(1, "illegal -g value -- %s", optarg);
+			set_rpc_maxgrouplist(num);
+			nfsargsp->maxgrouplist = num;
+			nfsargsp->flags |= NFSMNT_MAXGRPS;
+			break;
+		case 'i':
+			nfsargsp->flags |= NFSMNT_INT;
+			break;
+#ifdef KERBEROS
+		case 'K':
+			nfsargsp->flags |= NFSMNT_KERB;
+			break;
+#endif
+		case 'k':
+			nfsargsp->flags |= NFSMNT_NQLOOKLEASE;
+			break;
+		case 'L':
+			num = strtol(optarg, &p, 10);
+			if (*p || num < 2)
+				errx(1, "illegal -L value -- %s", optarg);
+			nfsargsp->leaseterm = num;
+			nfsargsp->flags |= NFSMNT_LEASETERM;
+			break;
+		case 'l':
+			nfsargsp->flags |= NFSMNT_RDIRALOOK;
+			break;
+		case 'M':
+			nfsargsp->flags |= NFSMNT_MYWRITE;
+			break;
+#ifdef KERBEROS
+		case 'm':
+			(void)strncpy(realm, optarg, REALM_SZ - 1);
+			realm[REALM_SZ - 1] = '\0';
+			break;
+#endif
+		case 'o':
+			getmntopts(optarg, mopts, &mntflags);
+			break;
+		case 'P':
+			nfsargsp->flags |= NFSMNT_RESVPORT;
+			break;
+#ifdef ISO
+		case 'p':
+			nfsargsp->sotype = SOCK_SEQPACKET;
+			break;
+#endif
+		case 'q':
+			nfsargsp->flags |= NFSMNT_NQNFS;
+			break;
+		case 'R':
+			num = strtol(optarg, &p, 10);
+			if (*p || num <= 0)
+				errx(1, "illegal -R value -- %s", optarg);
+			retrycnt = num;
+			break;
+		case 'r':
+			num = strtol(optarg, &p, 10);
+			if (*p || num <= 0)
+				errx(1, "illegal -r value -- %s", optarg);
+			nfsargsp->rsize = num;
+			nfsargsp->flags |= NFSMNT_RSIZE;
+			break;
+		case 's':
+			nfsargsp->flags |= NFSMNT_SOFT;
+			break;
+		case 'T':
+			nfsargsp->sotype = SOCK_STREAM;
+			break;
+		case 't':
+			num = strtol(optarg, &p, 10);
+			if (*p || num <= 0)
+				errx(1, "illegal -t value -- %s", optarg);
+			nfsargsp->timeo = num;
+			nfsargsp->flags |= NFSMNT_TIMEO;
+			break;
+		case 'w':
+			num = strtol(optarg, &p, 10);
+			if (*p || num <= 0)
+				errx(1, "illegal -w value -- %s", optarg);
+			nfsargsp->wsize = num;
+			nfsargsp->flags |= NFSMNT_WSIZE;
+			break;
+		case 'x':
+			num = strtol(optarg, &p, 10);
+			if (*p || num <= 0)
+				errx(1, "illegal -x value -- %s", optarg);
+			nfsargsp->retrans = num;
+			nfsargsp->flags |= NFSMNT_RETRANS;
+			break;
+		default:
+			usage();
+			break;
+		}
+	argc -= optind;
+	argv += optind;
+
+	if (argc != 2)
+		error = 1;
+
+	spec = *argv++;
+	name = *argv;
+
+	if (!getnfsargs(spec, nfsargsp))
+		exit(1);
+	if (mount(MOUNT_NFS, name, mntflags, nfsargsp))
+		err(1, "%s", name);
+	if (nfsargsp->flags & (NFSMNT_NQNFS | NFSMNT_KERB)) {
+		if ((opflags & ISBGRND) == 0) {
+			if (i = fork()) {
+				if (i == -1)
+					err(1, "nqnfs 1");
+				exit(0);
+			}
+			(void) setsid();
+			(void) close(STDIN_FILENO);
+			(void) close(STDOUT_FILENO);
+			(void) close(STDERR_FILENO);
+			(void) chdir("/");
+		}
+		openlog("mount_nfs:", LOG_PID, LOG_DAEMON);
+		nfssvc_flag = NFSSVC_MNTD;
+		ncd.ncd_dirp = name;
+		while (nfssvc(nfssvc_flag, (caddr_t)&ncd) < 0) {
+			if (errno != ENEEDAUTH) {
+				syslog(LOG_ERR, "nfssvc err %m");
+				continue;
+			}
+			nfssvc_flag =
+			    NFSSVC_MNTD | NFSSVC_GOTAUTH | NFSSVC_AUTHINFAIL;
+#ifdef KERBEROS
+			/*
+			 * Set up as ncd_authuid for the kerberos call.
+			 * Must set ruid to ncd_authuid and reset the
+			 * ticket name iff ncd_authuid is not the same
+			 * as last time, so that the right ticket file
+			 * is found.
+			 */
+			if (ncd.ncd_authuid != last_ruid) {
+				krb_set_tkt_string("");
+				last_ruid = ncd.ncd_authuid;
+			}
+			setreuid(ncd.ncd_authuid, 0);
+			if (krb_mk_req(&kt, "rcmd", inst, realm, 0) ==
+			    KSUCCESS &&
+			    kt.length <= (RPCAUTH_MAXSIZ - 2 * NFSX_UNSIGNED)) {
+				ncd.ncd_authtype = RPCAUTH_NQNFS;
+				ncd.ncd_authlen = kt.length;
+				ncd.ncd_authstr = (char *)kt.dat;
+				nfssvc_flag = NFSSVC_MNTD | NFSSVC_GOTAUTH;
+			}
+			setreuid(0, 0);
+#endif /* KERBEROS */
+		}
+	}
+	exit(0);
+}
+
+int
+getnfsargs(spec, nfsargsp)
+	char *spec;
+	struct nfs_args *nfsargsp;
+{
+	register CLIENT *clp;
+	struct hostent *hp;
+	static struct sockaddr_in saddr;
+#ifdef ISO
+	static struct sockaddr_iso isoaddr;
+	struct iso_addr *isop;
+	int isoflag = 0;
+#endif
+	struct timeval pertry, try;
+	enum clnt_stat clnt_stat;
+	int so = RPC_ANYSOCK, i;
+	char *hostp, *delimp;
+#ifdef KERBEROS
+	char *cp;
+#endif
+	u_short tport;
+	static struct nfhret nfhret;
+	static char nam[MNAMELEN + 1];
+
+	strncpy(nam, spec, MNAMELEN);
+	nam[MNAMELEN] = '\0';
+	if ((delimp = strchr(spec, '@')) != NULL) {
+		hostp = delimp + 1;
+	} else if ((delimp = strchr(spec, ':')) != NULL) {
+		hostp = spec;
+		spec = delimp + 1;
+	} else {
+		warnx("no <host>:<dirpath> or <dirpath>@<host> spec");
+		return (0);
+	}
+	*delimp = '\0';
+	/*
+	 * DUMB!! Until the mount protocol works on iso transport, we must
+	 * supply both an iso and an inet address for the host.
+	 */
+#ifdef ISO
+	if (!strncmp(hostp, "iso=", 4)) {
+		u_short isoport;
+
+		hostp += 4;
+		isoflag++;
+		if ((delimp = strchr(hostp, '+')) == NULL) {
+			warnx("no iso+inet address");
+			return (0);
+		}
+		*delimp = '\0';
+		if ((isop = iso_addr(hostp)) == NULL) {
+			warnx("bad ISO address");
+			return (0);
+		}
+		bzero((caddr_t)&isoaddr, sizeof (isoaddr));
+		bcopy((caddr_t)isop, (caddr_t)&isoaddr.siso_addr,
+			sizeof (struct iso_addr));
+		isoaddr.siso_len = sizeof (isoaddr);
+		isoaddr.siso_family = AF_ISO;
+		isoaddr.siso_tlen = 2;
+		isoport = htons(NFS_PORT);
+		bcopy((caddr_t)&isoport, TSEL(&isoaddr), isoaddr.siso_tlen);
+		hostp = delimp + 1;
+	}
+#endif /* ISO */
+
+	/*
+	 * Handle an internet host address and reverse resolve it if
+	 * doing Kerberos.
+	 */
+	if (isdigit(*hostp)) {
+		if ((saddr.sin_addr.s_addr = inet_addr(hostp)) == -1) {
+			warnx("bad net address %s", hostp);
+			return (0);
+		}
+		if ((nfsargsp->flags & NFSMNT_KERB) &&
+		    (hp = gethostbyaddr((char *)&saddr.sin_addr.s_addr,
+		    sizeof (u_long), AF_INET)) == (struct hostent *)0) {
+			warnx("can't reverse resolve net address");
+			return (0);
+		}
+	} else if ((hp = gethostbyname(hostp)) == NULL) {
+		warnx("can't get net id for host");
+		return (0);
+	}
+#ifdef KERBEROS
+	if (nfsargsp->flags & NFSMNT_KERB) {
+		strncpy(inst, hp->h_name, INST_SZ);
+		inst[INST_SZ - 1] = '\0';
+		if (cp = strchr(inst, '.'))
+			*cp = '\0';
+	}
+#endif /* KERBEROS */
+
+	bcopy(hp->h_addr, (caddr_t)&saddr.sin_addr, hp->h_length);
+	nfhret.stat = EACCES;	/* Mark not yet successful */
+	while (retrycnt > 0) {
+		saddr.sin_family = AF_INET;
+		saddr.sin_port = htons(PMAPPORT);
+		if ((tport = pmap_getport(&saddr, RPCPROG_NFS,
+		    NFS_VER2, IPPROTO_UDP)) == 0) {
+			if ((opflags & ISBGRND) == 0)
+				clnt_pcreateerror("NFS Portmap");
+		} else {
+			saddr.sin_port = 0;
+			pertry.tv_sec = 10;
+			pertry.tv_usec = 0;
+			if ((clp = clntudp_create(&saddr, RPCPROG_MNT,
+			    RPCMNT_VER1, pertry, &so)) == NULL) {
+				if ((opflags & ISBGRND) == 0)
+					clnt_pcreateerror("Cannot MNT PRC");
+			} else {
+				clp->cl_auth = authunix_create_default();
+				try.tv_sec = 10;
+				try.tv_usec = 0;
+				clnt_stat = clnt_call(clp, RPCMNT_MOUNT,
+				    xdr_dir, spec, xdr_fh, &nfhret, try);
+				if (clnt_stat != RPC_SUCCESS) {
+					if ((opflags & ISBGRND) == 0)
+						warnx("%s", clnt_sperror(clp,
+						    "bad MNT RPC"));
+				} else {
+					auth_destroy(clp->cl_auth);
+					clnt_destroy(clp);
+					retrycnt = 0;
+				}
+			}
+		}
+		if (--retrycnt > 0) {
+			if (opflags & BGRND) {
+				opflags &= ~BGRND;
+				if (i = fork()) {
+					if (i == -1)
+						err(1, "nqnfs 2");
+					exit(0);
+				}
+				(void) setsid();
+				(void) close(STDIN_FILENO);
+				(void) close(STDOUT_FILENO);
+				(void) close(STDERR_FILENO);
+				(void) chdir("/");
+				opflags |= ISBGRND;
+			}
+			sleep(60);
+		}
+	}
+	if (nfhret.stat) {
+		if (opflags & ISBGRND)
+			exit(1);
+		warn("can't access %s", spec);
+		return (0);
+	}
+	saddr.sin_port = htons(tport);
+#ifdef ISO
+	if (isoflag) {
+		nfsargsp->addr = (struct sockaddr *) &isoaddr;
+		nfsargsp->addrlen = sizeof (isoaddr);
+	} else
+#endif /* ISO */
+	{
+		nfsargsp->addr = (struct sockaddr *) &saddr;
+		nfsargsp->addrlen = sizeof (saddr);
+	}
+	nfsargsp->fh = &nfhret.nfh;
+	nfsargsp->hostname = nam;
+	return (1);
+}
+
+/*
+ * xdr routines for mount rpc's
+ */
+int
+xdr_dir(xdrsp, dirp)
+	XDR *xdrsp;
+	char *dirp;
+{
+	return (xdr_string(xdrsp, &dirp, RPCMNT_PATHLEN));
+}
+
+int
+xdr_fh(xdrsp, np)
+	XDR *xdrsp;
+	struct nfhret *np;
+{
+	if (!xdr_u_long(xdrsp, &(np->stat)))
+		return (0);
+	if (np->stat)
+		return (1);
+	return (xdr_opaque(xdrsp, (caddr_t)&(np->nfh), NFSX_FH));
+}
+
+__dead void
+usage()
+{
+	(void)fprintf(stderr, "usage: mount_nfs %s\n%s\n%s\n%s\n",
+"[-bcdiKklMPqsT] [-a maxreadahead] [-D deadthresh]",
+"\t[-g maxgroups] [-L leaseterm] [-m realm] [-o options] [-R retrycnt]",
+"\t[-r readsize] [-t timeout] [-w writesize] [-x retrans]",
+"\trhost:path node");
+	exit(1);
+}