preen.c revision 23675 
1/*
2 * Copyright (c) 1990, 1993
3 *	The Regents of the University of California.  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 * 3. All advertising materials mentioning features or use of this software
14 *    must display the following acknowledgement:
15 *	This product includes software developed by the University of
16 *	California, Berkeley and its contributors.
17 * 4. Neither the name of the University nor the names of its contributors
18 *    may be used to endorse or promote products derived from this software
19 *    without specific prior written permission.
20 *
21 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
22 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
25 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31 * SUCH DAMAGE.
32 */
33
34#ifndef lint
35static const char sccsid[] = "@(#)preen.c	8.5 (Berkeley) 4/28/95";
36#endif /* not lint */
37
38#include <sys/param.h>
39#include <sys/stat.h>
40#include <sys/wait.h>
41#include <ufs/ufs/dinode.h>
42#include <fstab.h>
43#include <string.h>
44#include <stdio.h>
45#include <unistd.h>
46#include <stdlib.h>
47#include <ctype.h>
48
49#include "fsck.h"
50
51struct part {
52	struct	part *next;		/* forward link of partitions on disk */
53	char	*name;			/* device name */
54	char	*fsname;		/* mounted filesystem name */
55	long	auxdata;		/* auxillary data for application */
56} *badlist, **badnext = &badlist;
57
58struct disk {
59	char	*name;			/* disk base name */
60	struct	disk *next;		/* forward link for list of disks */
61	struct	part *part;		/* head of list of partitions on disk */
62	int	pid;			/* If != 0, pid of proc working on */
63} *disks;
64
65int	nrun, ndisks;
66char	hotroot;
67
68static void addpart __P((char *name, char *fsname, long auxdata));
69static struct disk *finddisk __P((char *name));
70static char *rawname __P((char *name));
71static int startdisk __P((struct disk *dk,
72		int (*checkit)(char *, char *, long, int)));
73static char *unrawname __P((char *name));
74
75int
76checkfstab(preen, maxrun, docheck, chkit)
77	int preen;
78	int maxrun;
79	int (*docheck)(struct fstab *);
80	int (*chkit)(char *, char *, long, int);
81{
82	register struct fstab *fsp;
83	register struct disk *dk, *nextdisk;
84	register struct part *pt;
85	int ret, pid, retcode, passno, sumstatus, status;
86	long auxdata;
87	char *name;
88
89	sumstatus = 0;
90	for (passno = 1; passno <= 2; passno++) {
91		if (setfsent() == 0) {
92			fprintf(stderr, "Can't open checklist file: %s\n",
93			    _PATH_FSTAB);
94			return (8);
95		}
96		while ((fsp = getfsent()) != 0) {
97			if ((auxdata = (*docheck)(fsp)) == 0)
98				continue;
99			if (preen == 0 ||
100			    (passno == 1 && fsp->fs_passno == 1)) {
101				if ((name = blockcheck(fsp->fs_spec)) != 0) {
102					if ((sumstatus = (*chkit)(name,
103					    fsp->fs_file, auxdata, 0)) != 0)
104						return (sumstatus);
105				} else if (preen)
106					return (8);
107			} else if (passno == 2 && fsp->fs_passno > 1) {
108				if ((name = blockcheck(fsp->fs_spec)) == NULL) {
109					fprintf(stderr, "BAD DISK NAME %s\n",
110						fsp->fs_spec);
111					sumstatus |= 8;
112					continue;
113				}
114				addpart(name, fsp->fs_file, auxdata);
115			}
116		}
117		if (preen == 0)
118			return (0);
119	}
120	if (preen) {
121		if (maxrun == 0)
122			maxrun = ndisks;
123		if (maxrun > ndisks)
124			maxrun = ndisks;
125		nextdisk = disks;
126		for (passno = 0; passno < maxrun; ++passno) {
127			while ((ret = startdisk(nextdisk, chkit)) != 0 &&
128			    nrun > 0)
129				sleep(10);
130			if (ret)
131				return (ret);
132			nextdisk = nextdisk->next;
133		}
134		while ((pid = wait(&status)) != -1) {
135			for (dk = disks; dk; dk = dk->next)
136				if (dk->pid == pid)
137					break;
138			if (dk == 0) {
139				printf("Unknown pid %d\n", pid);
140				continue;
141			}
142			if (WIFEXITED(status))
143				retcode = WEXITSTATUS(status);
144			else
145				retcode = 0;
146			if (WIFSIGNALED(status)) {
147				printf("%s (%s): EXITED WITH SIGNAL %d\n",
148					dk->part->name, dk->part->fsname,
149					WTERMSIG(status));
150				retcode = 8;
151			}
152			if (retcode != 0) {
153				sumstatus |= retcode;
154				*badnext = dk->part;
155				badnext = &dk->part->next;
156				dk->part = dk->part->next;
157				*badnext = NULL;
158			} else
159				dk->part = dk->part->next;
160			dk->pid = 0;
161			nrun--;
162			if (dk->part == NULL)
163				ndisks--;
164
165			if (nextdisk == NULL) {
166				if (dk->part) {
167					while ((ret = startdisk(dk, chkit)) != 0
168					    && nrun > 0)
169						sleep(10);
170					if (ret)
171						return (ret);
172				}
173			} else if (nrun < maxrun && nrun < ndisks) {
174				for ( ;; ) {
175					if ((nextdisk = nextdisk->next) == NULL)
176						nextdisk = disks;
177					if (nextdisk->part != NULL &&
178					    nextdisk->pid == 0)
179						break;
180				}
181				while ((ret = startdisk(nextdisk, chkit)) != 0
182				    && nrun > 0)
183					sleep(10);
184				if (ret)
185					return (ret);
186			}
187		}
188	}
189	if (sumstatus) {
190		if (badlist == 0)
191			return (sumstatus);
192		fprintf(stderr, "THE FOLLOWING FILE SYSTEM%s HAD AN %s\n\t",
193			badlist->next ? "S" : "", "UNEXPECTED INCONSISTENCY:");
194		for (pt = badlist; pt; pt = pt->next)
195			fprintf(stderr, "%s (%s)%s", pt->name, pt->fsname,
196			    pt->next ? ", " : "\n");
197		return (sumstatus);
198	}
199	(void)endfsent();
200	return (0);
201}
202
203static struct disk *
204finddisk(name)
205	char *name;
206{
207	register struct disk *dk, **dkp;
208	register char *p;
209	size_t len = 0;
210
211	for (len = strlen(name), p = name + len - 1; p >= name; --p)
212		if (isdigit(*p)) {
213			len = p - name + 1;
214			break;
215		}
216
217	for (dk = disks, dkp = &disks; dk; dkp = &dk->next, dk = dk->next) {
218		if (strncmp(dk->name, name, len) == 0 &&
219		    dk->name[len] == 0)
220			return (dk);
221	}
222	if ((*dkp = (struct disk *)malloc(sizeof(struct disk))) == NULL) {
223		fprintf(stderr, "out of memory");
224		exit (8);
225	}
226	dk = *dkp;
227	if ((dk->name = malloc(len + 1)) == NULL) {
228		fprintf(stderr, "out of memory");
229		exit (8);
230	}
231	(void)strncpy(dk->name, name, len);
232	dk->name[len] = '\0';
233	dk->part = NULL;
234	dk->next = NULL;
235	dk->pid = 0;
236	ndisks++;
237	return (dk);
238}
239
240static void
241addpart(name, fsname, auxdata)
242	char *name, *fsname;
243	long auxdata;
244{
245	struct disk *dk = finddisk(name);
246	register struct part *pt, **ppt = &dk->part;
247
248	for (pt = dk->part; pt; ppt = &pt->next, pt = pt->next)
249		if (strcmp(pt->name, name) == 0) {
250			printf("%s in fstab more than once!\n", name);
251			return;
252		}
253	if ((*ppt = (struct part *)malloc(sizeof(struct part))) == NULL) {
254		fprintf(stderr, "out of memory");
255		exit (8);
256	}
257	pt = *ppt;
258	if ((pt->name = malloc(strlen(name) + 1)) == NULL) {
259		fprintf(stderr, "out of memory");
260		exit (8);
261	}
262	(void)strcpy(pt->name, name);
263	if ((pt->fsname = malloc(strlen(fsname) + 1)) == NULL) {
264		fprintf(stderr, "out of memory");
265		exit (8);
266	}
267	(void)strcpy(pt->fsname, fsname);
268	pt->next = NULL;
269	pt->auxdata = auxdata;
270}
271
272static int
273startdisk(dk, checkit)
274	register struct disk *dk;
275	int (*checkit)(char *, char *, long, int);
276{
277	register struct part *pt = dk->part;
278
279	dk->pid = fork();
280	if (dk->pid < 0) {
281		perror("fork");
282		return (8);
283	}
284	if (dk->pid == 0)
285		exit((*checkit)(pt->name, pt->fsname, pt->auxdata, 1));
286	nrun++;
287	return (0);
288}
289
290char *
291blockcheck(origname)
292	char *origname;
293{
294	struct stat stslash, stblock, stchar;
295	char *newname, *raw;
296	struct fstab *fsinfo;
297	int retried = 0, l;
298
299	hotroot = 0;
300	if (stat("/", &stslash) < 0) {
301		perror("/");
302		printf("Can't stat root\n");
303		return (origname);
304	}
305	newname = origname;
306retry:
307	if (stat(newname, &stblock) < 0) {
308		perror(newname);
309		printf("Can't stat %s\n", newname);
310		return (origname);
311	}
312	if ((stblock.st_mode & S_IFMT) == S_IFBLK) {
313		if (stslash.st_dev == stblock.st_rdev)
314			hotroot++;
315		raw = rawname(newname);
316		if (stat(raw, &stchar) < 0) {
317			perror(raw);
318			printf("Can't stat %s\n", raw);
319			return (origname);
320		}
321		if ((stchar.st_mode & S_IFMT) == S_IFCHR) {
322			return (raw);
323		} else {
324			printf("%s is not a character device\n", raw);
325			return (origname);
326		}
327	} else if ((stblock.st_mode & S_IFMT) == S_IFCHR && !retried) {
328		newname = unrawname(origname);
329		retried++;
330		goto retry;
331	} else if ((stblock.st_mode & S_IFMT) == S_IFDIR && !retried) {
332		l = strlen(origname) - 1;
333		if (l > 0 && origname[l] == '/')
334			/* remove trailing slash */
335			origname[l] = '\0';
336		if(!(fsinfo=getfsfile(origname))) {
337			printf("Can't resolve %s to character special device",
338			    origname);
339			return (0);
340		}
341		newname = fsinfo->fs_spec;
342		retried++;
343		goto retry;
344	}
345	/*
346	 * Not a block or character device, just return name and
347	 * let the user decide whether to use it.
348	 */
349	return (origname);
350}
351
352static char *
353unrawname(name)
354	char *name;
355{
356	char *dp;
357	struct stat stb;
358
359	if ((dp = strrchr(name, '/')) == 0)
360		return (name);
361	if (stat(name, &stb) < 0)
362		return (name);
363	if ((stb.st_mode & S_IFMT) != S_IFCHR)
364		return (name);
365	if (dp[1] != 'r')
366		return (name);
367	(void)strcpy(&dp[1], &dp[2]);
368	return (name);
369}
370
371static char *
372rawname(name)
373	char *name;
374{
375	static char rawbuf[32];
376	char *dp;
377
378	if ((dp = strrchr(name, '/')) == 0)
379		return (0);
380	*dp = 0;
381	(void)strcpy(rawbuf, name);
382	*dp = '/';
383	(void)strcat(rawbuf, "/r");
384	(void)strcat(rawbuf, &dp[1]);
385	return (rawbuf);
386}
387