sbin/fsdb/fsdbutil.c

   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 }