1/*	$NetBSD: fsdbutil.c,v 1.2 1995/10/08 23:18:12 thorpej Exp $	*/
2
3/*-
4 * SPDX-License-Identifier: BSD-3-Clause
5 *
6 *  Copyright (c) 1995 John T. Kohl
7 *  All rights reserved.
8 *
9 *  Redistribution and use in source and binary forms, with or without
10 *  modification, are permitted provided that the following conditions
11 *  are met:
12 *  1. Redistributions of source code must retain the above copyright
13 *     notice, this list of conditions and the following disclaimer.
14 *  2. Redistributions in binary form must reproduce the above copyright
15 *     notice, this list of conditions and the following disclaimer in the
16 *     documentation and/or other materials provided with the distribution.
17 *  3. The name of the author may not be used to endorse or promote products
18 *     derived from this software without specific prior written permission.
19 *
20 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR `AS IS'' AND ANY EXPRESS OR
21 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
22 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
23 * DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
24 * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
25 * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
26 * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
27 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
28 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
29 * ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
30 * POSSIBILITY OF SUCH DAMAGE.
31 */
32
33#ifndef lint
34static const char rcsid[] =
35  "$FreeBSD: stable/11/sbin/fsdb/fsdbutil.c 330449 2018-03-05 07:26:05Z eadler $";
36#endif /* not lint */
37
38#include <sys/param.h>
39#include <ctype.h>
40#include <err.h>
41#include <grp.h>
42#include <pwd.h>
43#include <stdint.h>
44#include <string.h>
45#include <time.h>
46#include <timeconv.h>
47
48#include <ufs/ufs/dinode.h>
49#include <ufs/ffs/fs.h>
50
51#include <sys/ioctl.h>
52
53#include "fsdb.h"
54#include "fsck.h"
55
56static int charsperline(void);
57static void printindir(ufs2_daddr_t blk, int level, char *bufp);
58static void printblocks(ino_t inum, union dinode *dp);
59
60char **
61crack(char *line, int *argc)
62{
63    static char *argv[8];
64    int i;
65    char *p, *val;
66    for (p = line, i = 0; p != NULL && i < 8; i++) {
67	while ((val = strsep(&p, " \t\n")) != NULL && *val == '\0')
68	    /**/;
69	if (val)
70	    argv[i] = val;
71	else
72	    break;
73    }
74    *argc = i;
75    return argv;
76}
77
78char **
79recrack(char *line, int *argc, int argc_max)
80{
81    static char *argv[8];
82    int i;
83    char *p, *val;
84    for (p = line, i = 0; p != NULL && i < 8 && i < argc_max - 1; i++) {
85	while ((val = strsep(&p, " \t\n")) != NULL && *val == '\0')
86	    /**/;
87	if (val)
88	    argv[i] = val;
89	else
90	    break;
91    }
92    argv[i] = argv[i - 1] + strlen(argv[i - 1]) + 1;
93    argv[i][strcspn(argv[i], "\n")] = '\0';
94    *argc = i + 1;
95    return argv;
96}
97
98int
99argcount(struct cmdtable *cmdp, int argc, char *argv[])
100{
101    if (cmdp->minargc == cmdp->maxargc)
102	warnx("command `%s' takes %u arguments, got %u", cmdp->cmd,
103	    cmdp->minargc-1, argc-1);
104    else
105	warnx("command `%s' takes from %u to %u arguments",
106	      cmdp->cmd, cmdp->minargc-1, cmdp->maxargc-1);
107
108    warnx("usage: %s: %s", cmdp->cmd, cmdp->helptxt);
109    return 1;
110}
111
112void
113printstat(const char *cp, ino_t inum, union dinode *dp)
114{
115    struct group *grp;
116    struct passwd *pw;
117    ufs2_daddr_t blocks;
118    int64_t gen;
119    char *p;
120    time_t t;
121
122    printf("%s: ", cp);
123    switch (DIP(dp, di_mode) & IFMT) {
124    case IFDIR:
125	puts("directory");
126	break;
127    case IFREG:
128	puts("regular file");
129	break;
130    case IFBLK:
131	printf("block special (%#jx)", (uintmax_t)DIP(dp, di_rdev));
132	break;
133    case IFCHR:
134	printf("character special (%#jx)", DIP(dp, di_rdev));
135	break;
136    case IFLNK:
137	fputs("symlink",stdout);
138	if (DIP(dp, di_size) > 0 &&
139	    DIP(dp, di_size) < sblock.fs_maxsymlinklen &&
140	    DIP(dp, di_blocks) == 0) {
141	    if (sblock.fs_magic == FS_UFS1_MAGIC)
142		p = (caddr_t)dp->dp1.di_db;
143	    else
144		p = (caddr_t)dp->dp2.di_db;
145	    printf(" to `%.*s'\n", (int) DIP(dp, di_size), p);
146	} else {
147	    putchar('\n');
148	}
149	break;
150    case IFSOCK:
151	puts("socket");
152	break;
153    case IFIFO:
154	puts("fifo");
155	break;
156    }
157    printf("I=%ju MODE=%o SIZE=%ju", (uintmax_t)inum, DIP(dp, di_mode),
158	(uintmax_t)DIP(dp, di_size));
159    if (sblock.fs_magic != FS_UFS1_MAGIC) {
160	t = _time64_to_time(dp->dp2.di_birthtime);
161	p = ctime(&t);
162	printf("\n\tBTIME=%15.15s %4.4s [%d nsec]", &p[4], &p[20],
163	   dp->dp2.di_birthnsec);
164    }
165    if (sblock.fs_magic == FS_UFS1_MAGIC)
166	t = _time32_to_time(dp->dp1.di_mtime);
167    else
168	t = _time64_to_time(dp->dp2.di_mtime);
169    p = ctime(&t);
170    printf("\n\tMTIME=%15.15s %4.4s [%d nsec]", &p[4], &p[20],
171	   DIP(dp, di_mtimensec));
172    if (sblock.fs_magic == FS_UFS1_MAGIC)
173	t = _time32_to_time(dp->dp1.di_ctime);
174    else
175	t = _time64_to_time(dp->dp2.di_ctime);
176    p = ctime(&t);
177    printf("\n\tCTIME=%15.15s %4.4s [%d nsec]", &p[4], &p[20],
178	   DIP(dp, di_ctimensec));
179    if (sblock.fs_magic == FS_UFS1_MAGIC)
180	t = _time32_to_time(dp->dp1.di_atime);
181    else
182	t = _time64_to_time(dp->dp2.di_atime);
183    p = ctime(&t);
184    printf("\n\tATIME=%15.15s %4.4s [%d nsec]\n", &p[4], &p[20],
185	   DIP(dp, di_atimensec));
186
187    if ((pw = getpwuid(DIP(dp, di_uid))))
188	printf("OWNER=%s ", pw->pw_name);
189    else
190	printf("OWNUID=%u ", DIP(dp, di_uid));
191    if ((grp = getgrgid(DIP(dp, di_gid))))
192	printf("GRP=%s ", grp->gr_name);
193    else
194	printf("GID=%u ", DIP(dp, di_gid));
195
196    blocks = DIP(dp, di_blocks);
197    gen = DIP(dp, di_gen);
198    printf("LINKCNT=%d FLAGS=%#x BLKCNT=%jx GEN=%jx\n", DIP(dp, di_nlink),
199	DIP(dp, di_flags), (intmax_t)blocks, (intmax_t)gen);
200}
201
202
203/*
204 * Determine the number of characters in a
205 * single line.
206 */
207
208static int
209charsperline(void)
210{
211	int columns;
212	char *cp;
213	struct winsize ws;
214
215	columns = 0;
216	if (ioctl(0, TIOCGWINSZ, &ws) != -1)
217		columns = ws.ws_col;
218	if (columns == 0 && (cp = getenv("COLUMNS")))
219		columns = atoi(cp);
220	if (columns == 0)
221		columns = 80;	/* last resort */
222	return (columns);
223}
224
225
226/*
227 * Recursively print a list of indirect blocks.
228 */
229static void
230printindir(ufs2_daddr_t blk, int level, char *bufp)
231{
232    struct bufarea buf, *bp;
233    char tempbuf[32];		/* enough to print an ufs2_daddr_t */
234    int i, j, cpl, charssofar;
235    ufs2_daddr_t blkno;
236
237    if (blk == 0)
238	return;
239    printf("%jd (%d) =>\n", (intmax_t)blk, level);
240    if (level == 0) {
241	/* for the final indirect level, don't use the cache */
242	bp = &buf;
243	bp->b_un.b_buf = bufp;
244	initbarea(bp, BT_UNKNOWN);
245
246	getblk(bp, blk, sblock.fs_bsize);
247    } else
248	bp = getdatablk(blk, sblock.fs_bsize, BT_UNKNOWN);
249
250    cpl = charsperline();
251    for (i = charssofar = 0; i < NINDIR(&sblock); i++) {
252	if (sblock.fs_magic == FS_UFS1_MAGIC)
253		blkno = bp->b_un.b_indir1[i];
254	else
255		blkno = bp->b_un.b_indir2[i];
256	if (blkno == 0)
257	    continue;
258	j = sprintf(tempbuf, "%jd", (intmax_t)blkno);
259	if (level == 0) {
260	    charssofar += j;
261	    if (charssofar >= cpl - 2) {
262		putchar('\n');
263		charssofar = j;
264	    }
265	}
266	fputs(tempbuf, stdout);
267	if (level == 0) {
268	    printf(", ");
269	    charssofar += 2;
270	} else {
271	    printf(" =>\n");
272	    printindir(blkno, level - 1, bufp);
273	    printf("\n");
274	    charssofar = 0;
275	}
276    }
277    if (level == 0)
278	putchar('\n');
279    return;
280}
281
282
283/*
284 * Print the block pointers for one inode.
285 */
286static void
287printblocks(ino_t inum, union dinode *dp)
288{
289    char *bufp;
290    int i, nfrags;
291    long ndb, offset;
292    ufs2_daddr_t blkno;
293
294    printf("Blocks for inode %ju:\n", (uintmax_t)inum);
295    printf("Direct blocks:\n");
296    ndb = howmany(DIP(dp, di_size), sblock.fs_bsize);
297    for (i = 0; i < NDADDR && i < ndb; i++) {
298	if (i > 0)
299	    printf(", ");
300	blkno = DIP(dp, di_db[i]);
301	printf("%jd", (intmax_t)blkno);
302    }
303    if (ndb <= NDADDR) {
304	offset = blkoff(&sblock, DIP(dp, di_size));
305	if (offset != 0) {
306	    nfrags = numfrags(&sblock, fragroundup(&sblock, offset));
307	    printf(" (%d frag%s)", nfrags, nfrags > 1? "s": "");
308	}
309    }
310    putchar('\n');
311    if (ndb <= NDADDR)
312	return;
313
314    bufp = malloc((unsigned int)sblock.fs_bsize);
315    if (bufp == NULL)
316	errx(EEXIT, "cannot allocate indirect block buffer");
317    printf("Indirect blocks:\n");
318    for (i = 0; i < NIADDR; i++)
319	printindir(DIP(dp, di_ib[i]), i, bufp);
320    free(bufp);
321}
322
323
324int
325checkactive(void)
326{
327    if (!curinode) {
328	warnx("no current inode\n");
329	return 0;
330    }
331    return 1;
332}
333
334int
335checkactivedir(void)
336{
337    if (!curinode) {
338	warnx("no current inode\n");
339	return 0;
340    }
341    if ((DIP(curinode, di_mode) & IFMT) != IFDIR) {
342	warnx("inode %ju not a directory", (uintmax_t)curinum);
343	return 0;
344    }
345    return 1;
346}
347
348int
349printactive(int doblocks)
350{
351    if (!checkactive())
352	return 1;
353    switch (DIP(curinode, di_mode) & IFMT) {
354    case IFDIR:
355    case IFREG:
356    case IFBLK:
357    case IFCHR:
358    case IFLNK:
359    case IFSOCK:
360    case IFIFO:
361	if (doblocks)
362	    printblocks(curinum, curinode);
363	else
364	    printstat("current inode", curinum, curinode);
365	break;
366    case 0:
367	printf("current inode %ju: unallocated inode\n", (uintmax_t)curinum);
368	break;
369    default:
370	printf("current inode %ju: screwy itype 0%o (mode 0%o)?\n",
371	    (uintmax_t)curinum, DIP(curinode, di_mode) & IFMT,
372	    DIP(curinode, di_mode));
373	break;
374    }
375    return 0;
376}
377