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 ** 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 ** 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 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 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 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 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 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 323 checkactive(void) 324 { 325 if (!curinode) { 326 warnx("no current inode\n"); 327 return 0; 328 } 329 return 1; 330 } 331 332 int 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 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