rpc.umntall.c revision 78343 
1/*
2 * Copyright (c) 1999 Martin Blapp
3 * All rights reserved.
4 *
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
7 * are met:
8 * 1. Redistributions of source code must retain the above copyright
9 *    notice, this list of conditions and the following disclaimer.
10 * 2. Redistributions in binary form must reproduce the above copyright
11 *    notice, this list of conditions and the following disclaimer in the
12 *    documentation and/or other materials provided with the distribution.
13 *
14 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
15 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
16 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
17 * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
18 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
19 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
20 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
21 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
22 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
23 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
24 * SUCH DAMAGE.
25 *
26 */
27
28#ifndef lint
29static const char rcsid[] =
30  "$FreeBSD: head/usr.sbin/rpc.umntall/rpc.umntall.c 78343 2001-06-16 07:15:48Z jlemon $";
31#endif /* not lint */
32
33#include <sys/param.h>
34#include <sys/ucred.h>
35#include <sys/mount.h>
36
37#include <rpc/rpc.h>
38#include <nfs/rpcv2.h>
39
40#include <err.h>
41#include <netdb.h>
42#include <stdio.h>
43#include <stdlib.h>
44#include <string.h>
45#include <unistd.h>
46
47#include "mounttab.h"
48
49int verbose;
50
51static int do_umount (char *, char *);
52static int do_umntall (char *);
53static int is_mounted (char *, char *);
54static void usage (void);
55int	xdr_dir (XDR *, char *);
56
57struct mtablist *mtabhead;
58
59int
60main(int argc, char **argv) {
61	int ch, keep, success, pathlen;
62	time_t expire, *now;
63	char *host, *path;
64	struct mtablist *mtab;
65
66	mtab = NULL;
67	now = NULL;
68	expire = 0;
69	host = path = '\0';
70	success = keep = verbose = 0;
71	while ((ch = getopt(argc, argv, "h:kp:ve:")) != -1)
72		switch (ch) {
73		case 'h':
74			host = optarg;
75			break;
76		case 'e':
77			expire = atoi(optarg);
78			break;
79		case 'k':
80			keep = 1;
81			break;
82		case 'p':
83			path = optarg;
84			break;
85		case 'v':
86			verbose = 1;
87			break;
88		case '?':
89			usage();
90		default:
91		}
92	argc -= optind;
93	argv += optind;
94
95	/* Ignore SIGINT and SIGQUIT during shutdown */
96	signal(SIGINT, SIG_IGN);
97	signal(SIGQUIT, SIG_IGN);
98
99	/* Default expiretime is one day */
100	if (expire == 0)
101		expire = 86400;
102	/*
103	 * Read PATH_MOUNTTAB and check each entry
104	 * and do finally the unmounts.
105	 */
106	if (host == NULL && path == NULL) {
107	    	if (!read_mtab(mtab)) {
108			if (verbose)
109				warnx("nothing to do, %s does not exist",
110				    PATH_MOUNTTAB);
111		}
112		for (mtab = mtabhead; mtab != NULL; mtab = mtab->mtab_next) {
113			if (*mtab->mtab_host != '\0' ||
114			    mtab->mtab_time <= (time(now) - expire)) {
115				if (keep && is_mounted(mtab->mtab_host,
116				    mtab->mtab_dirp)) {
117					if (verbose) {
118						warnx("skip entry %s:%s",
119						    mtab->mtab_host,
120						    mtab->mtab_dirp);
121					}
122				} else if (do_umount(mtab->mtab_host,
123				    mtab->mtab_dirp) ||
124				    mtab->mtab_time <= (time(now) - expire)) {
125					clean_mtab(mtab->mtab_host,
126					    mtab->mtab_dirp);
127				}
128			}
129		}
130	/* Only do a RPC UMNTALL for this specific host */
131	} else if (host != NULL && path == NULL) {
132		if (!do_umntall(host))
133			exit(1);
134		else
135			success = 1;
136	/* Someone forgot to enter a hostname */
137	} else if (host == NULL && path != NULL)
138		usage();
139	/* Only do a RPC UMOUNT for this specific mount */
140	else {
141		for (pathlen = strlen(path);
142		    pathlen > 1 && path[pathlen - 1] == '/'; pathlen--)
143			path[pathlen - 1] = '\0';
144		if (!do_umount(host, path))
145			exit(1);
146		else
147			success = 1;
148	}
149	/* Write and unlink PATH_MOUNTTAB if necessary */
150	if (success) {
151		if (verbose)
152			warnx("UMOUNT RPC successfully sent to %s", host);
153		if (read_mtab(mtab)) {
154			mtab = mtabhead;
155			clean_mtab(host, path);
156		}
157	}
158	if (!write_mtab()) {
159		free_mtab();
160		exit(1);
161	}
162	free_mtab();
163	exit(0);
164}
165
166/*
167 * Send a RPC_MNT UMNTALL request to hostname.
168 * XXX This works for all mountd implementations,
169 * but produces a RPC IOERR on non FreeBSD systems.
170 */
171int
172do_umntall(char *hostname) {
173	enum clnt_stat clnt_stat;
174	struct addrinfo *ai, hints;
175	struct timeval try;
176	int so, ecode;
177	CLIENT *clp;
178
179	memset(&hints, 0, sizeof hints);
180        hints.ai_flags = AI_NUMERICHOST;
181	ecode = getaddrinfo(hostname, NULL, &hints, &ai);
182	if (ecode != 0) {
183		warnx("can't get net id for host/nfs: %s",
184		    gai_strerror(ecode));
185		return (1);
186	}
187	clp = clnt_create(hostname, RPCPROG_MNT, RPCMNT_VER1, "udp");
188	if (clp  == NULL) {
189		clnt_pcreateerror("Cannot MNT PRC");
190		return (1);
191	}
192	clp->cl_auth = authunix_create_default();
193	try.tv_sec = 3;
194	try.tv_usec = 0;
195	clnt_stat = clnt_call(clp, RPCMNT_UMNTALL, xdr_void, (caddr_t)0,
196	    xdr_void, (caddr_t)0, try);
197	if (clnt_stat != RPC_SUCCESS) {
198		clnt_perror(clp, "Bad MNT RPC");
199		return (0);
200	} else
201		return (1);
202}
203
204/*
205 * Send a RPC_MNT UMOUNT request for dirp to hostname.
206 */
207int
208do_umount(char *hostname, char *dirp) {
209	enum clnt_stat clnt_stat;
210	struct addrinfo *ai, hints;
211	struct timeval try;
212	CLIENT *clp;
213	int so, ecode;
214
215	memset(&hints, 0, sizeof hints);
216        hints.ai_flags = AI_NUMERICHOST;
217	ecode = getaddrinfo(hostname, NULL, &hints, &ai);
218	if (ecode != 0) {
219		warnx("can't get net id for host/nfs: %s",
220		    gai_strerror(ecode));
221		return (1);
222	}
223	clp = clnt_create(hostname, RPCPROG_MNT, RPCMNT_VER1, "udp");
224	if (clp  == NULL) {
225		clnt_pcreateerror("Cannot MNT PRC");
226		return (1);
227	}
228	clp->cl_auth = authsys_create_default();
229	try.tv_sec = 3;
230	try.tv_usec = 0;
231	clnt_stat = clnt_call(clp, RPCMNT_UMOUNT, xdr_dir, dirp,
232	    xdr_void, (caddr_t)0, try);
233	if (clnt_stat != RPC_SUCCESS) {
234		clnt_perror(clp, "Bad MNT RPC");
235		return (0);
236	}
237	return (1);
238}
239
240/*
241 * Check if the entry is still/already mounted.
242 */
243int
244is_mounted(char *hostname, char *dirp) {
245	struct statfs *mntbuf;
246	char name[MNAMELEN + 1];
247	size_t bufsize, hostlen, dirlen;
248	int mntsize, i;
249
250	hostlen = strlen(hostname);
251	dirlen = strlen(dirp);
252	if ((hostlen + dirlen) >= MNAMELEN)
253		return (0);
254	memmove(name, hostname, hostlen);
255	name[hostlen] = ':';
256	memmove(name + hostlen + 1, dirp, dirlen);
257	name[hostlen + dirlen + 1] = '\0';
258	mntsize = getfsstat(NULL, 0, MNT_NOWAIT);
259	if (mntsize <= 0)
260		return (0);
261	bufsize = (mntsize + 1) * sizeof(struct statfs);
262	if ((mntbuf = malloc(bufsize)) == NULL)
263		err(1, "malloc");
264	mntsize = getfsstat(mntbuf, (long)bufsize, MNT_NOWAIT);
265	for (i = mntsize - 1; i >= 0; i--) {
266		if (strcmp(mntbuf[i].f_mntfromname, name) == 0) {
267			free(mntbuf);
268			return (1);
269		}
270	}
271	free(mntbuf);
272	return (0);
273}
274
275/*
276 * xdr routines for mount rpc's
277 */
278int
279xdr_dir(XDR *xdrsp, char *dirp) {
280
281	return (xdr_string(xdrsp, &dirp, RPCMNT_PATHLEN));
282}
283
284static void
285usage() {
286
287	(void)fprintf(stderr, "%s\n",
288	    "usage: rpc.umntall [-h host] [-k] [-p path] [-t expire] [-v]");
289	exit(1);
290}
291