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