1 /* 2 * Copyright (c) 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 * 4. Neither the name of the University nor the names of its contributors 14 * may be used to endorse or promote products derived from this software 15 * without specific prior written permission. 16 * 17 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 18 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 19 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 20 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 21 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 22 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 23 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 24 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 25 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 26 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 27 * SUCH DAMAGE. 28 */ 29 30 #ifndef lint 31 static const char copyright[] = 32 "@(#) Copyright (c) 1993\n\ 33 The Regents of the University of California. All rights reserved.\n"; 34 #endif /* not lint */ 35 36 #ifndef lint 37 #if 0 38 static char sccsid[] = "@(#)from: sysctl.c 8.1 (Berkeley) 6/6/93"; 39 #endif 40 static const char rcsid[] = 41 "$FreeBSD$"; 42 #endif /* not lint */ 43 44 #ifdef __i386__ 45 #include <sys/reboot.h> /* used for bootdev parsing */ 46 #endif 47 #include <sys/param.h> 48 #include <sys/time.h> 49 #include <sys/resource.h> 50 #include <sys/stat.h> 51 #include <sys/sysctl.h> 52 #include <sys/vmmeter.h> 53 54 #include <ctype.h> 55 #include <err.h> 56 #include <errno.h> 57 #include <locale.h> 58 #include <stdio.h> 59 #include <stdlib.h> 60 #include <string.h> 61 #include <unistd.h> 62 63 static int aflag, bflag, dflag, eflag, hflag, Nflag, nflag, oflag; 64 static int qflag, xflag; 65 66 static int oidfmt(int *, int, char *, u_int *); 67 static void parse(char *); 68 static int show_var(int *, int); 69 static int sysctl_all (int *oid, int len); 70 static int name2oid(char *, int *); 71 72 static void set_T_dev_t (char *, void **, size_t *); 73 static int set_IK(char *, int *); 74 75 static void 76 usage(void) 77 { 78 79 (void)fprintf(stderr, "%s\n%s\n", 80 "usage: sysctl [-bdehNnoqx] name[=value] ...", 81 " sysctl [-bdehNnoqx] -a"); 82 exit(1); 83 } 84 85 int 86 main(int argc, char **argv) 87 { 88 int ch; 89 90 setlocale(LC_NUMERIC, ""); 91 setbuf(stdout,0); 92 setbuf(stderr,0); 93 94 while ((ch = getopt(argc, argv, "AabdehNnoqwxX")) != -1) { 95 switch (ch) { 96 case 'A': 97 /* compatibility */ 98 aflag = oflag = 1; 99 break; 100 case 'a': 101 aflag = 1; 102 break; 103 case 'b': 104 bflag = 1; 105 break; 106 case 'd': 107 dflag = 1; 108 break; 109 case 'e': 110 eflag = 1; 111 break; 112 case 'h': 113 hflag = 1; 114 break; 115 case 'N': 116 Nflag = 1; 117 break; 118 case 'n': 119 nflag = 1; 120 break; 121 case 'o': 122 oflag = 1; 123 break; 124 case 'q': 125 qflag = 1; 126 break; 127 case 'w': 128 /* compatibility */ 129 /* ignored */ 130 break; 131 case 'X': 132 /* compatibility */ 133 aflag = xflag = 1; 134 break; 135 case 'x': 136 xflag = 1; 137 break; 138 default: 139 usage(); 140 } 141 } 142 argc -= optind; 143 argv += optind; 144 145 if (Nflag && nflag) 146 usage(); 147 if (aflag && argc == 0) 148 exit(sysctl_all(0, 0)); 149 if (argc == 0) 150 usage(); 151 while (argc-- > 0) 152 parse(*argv++); 153 exit(0); 154 } 155 156 /* 157 * Parse a name into a MIB entry. 158 * Lookup and print out the MIB entry if it exists. 159 * Set a new value if requested. 160 */ 161 static void 162 parse(char *string) 163 { 164 int len, i, j; 165 void *newval = 0; 166 int intval; 167 unsigned int uintval; 168 long longval; 169 unsigned long ulongval; 170 size_t newsize = 0; 171 quad_t quadval; 172 int mib[CTL_MAXNAME]; 173 char *cp, *bufp, buf[BUFSIZ], *endptr, fmt[BUFSIZ]; 174 u_int kind; 175 176 bufp = buf; 177 if (snprintf(buf, BUFSIZ, "%s", string) >= BUFSIZ) 178 errx(1, "oid too long: '%s'", string); 179 if ((cp = strchr(string, '=')) != NULL) { 180 *strchr(buf, '=') = '\0'; 181 *cp++ = '\0'; 182 while (isspace(*cp)) 183 cp++; 184 newval = cp; 185 newsize = strlen(cp); 186 } 187 len = name2oid(bufp, mib); 188 189 if (len < 0) { 190 if (qflag) 191 exit(1); 192 else 193 errx(1, "unknown oid '%s'", bufp); 194 } 195 196 if (oidfmt(mib, len, fmt, &kind)) 197 err(1, "couldn't find format of oid '%s'", bufp); 198 199 if (newval == NULL) { 200 if ((kind & CTLTYPE) == CTLTYPE_NODE) { 201 if (dflag) { 202 i = show_var(mib, len); 203 if (!i && !bflag) 204 putchar('\n'); 205 } 206 sysctl_all(mib, len); 207 } else { 208 i = show_var(mib, len); 209 if (!i && !bflag) 210 putchar('\n'); 211 } 212 } else { 213 if ((kind & CTLTYPE) == CTLTYPE_NODE) 214 errx(1, "oid '%s' isn't a leaf node", bufp); 215 216 if (!(kind & CTLFLAG_WR)) { 217 if (kind & CTLFLAG_TUN) { 218 warnx("oid '%s' is a read only tunable", bufp); 219 errx(1, "Tunable values are set in /boot/loader.conf"); 220 } else { 221 errx(1, "oid '%s' is read only", bufp); 222 } 223 } 224 225 if ((kind & CTLTYPE) == CTLTYPE_INT || 226 (kind & CTLTYPE) == CTLTYPE_UINT || 227 (kind & CTLTYPE) == CTLTYPE_LONG || 228 (kind & CTLTYPE) == CTLTYPE_ULONG || 229 (kind & CTLTYPE) == CTLTYPE_QUAD) { 230 if (strlen(newval) == 0) 231 errx(1, "empty numeric value"); 232 } 233 234 switch (kind & CTLTYPE) { 235 case CTLTYPE_INT: 236 if (strcmp(fmt, "IK") == 0) { 237 if (!set_IK((char*)newval, &intval)) 238 errx(1, "invalid value '%s'", 239 newval); 240 } else { 241 intval = (int)strtol(newval, &endptr, 242 0); 243 if (endptr == newval || *endptr != '\0') 244 errx(1, "invalid integer '%s'", 245 newval); 246 } 247 newval = &intval; 248 newsize = sizeof(intval); 249 break; 250 case CTLTYPE_UINT: 251 uintval = (int) strtoul(newval, &endptr, 0); 252 if (endptr == newval || *endptr != '\0') 253 errx(1, "invalid unsigned integer '%s'", 254 newval); 255 newval = &uintval; 256 newsize = sizeof uintval; 257 break; 258 case CTLTYPE_LONG: 259 longval = strtol(newval, &endptr, 0); 260 if (endptr == newval || *endptr != '\0') 261 errx(1, "invalid long integer '%s'", 262 newval); 263 newval = &longval; 264 newsize = sizeof longval; 265 break; 266 case CTLTYPE_ULONG: 267 ulongval = strtoul(newval, &endptr, 0); 268 if (endptr == newval || *endptr != '\0') 269 errx(1, "invalid unsigned long integer" 270 " '%s'", newval); 271 newval = &ulongval; 272 newsize = sizeof ulongval; 273 break; 274 case CTLTYPE_STRING: 275 break; 276 case CTLTYPE_QUAD: 277 sscanf(newval, "%qd", &quadval); 278 newval = &quadval; 279 newsize = sizeof(quadval); 280 break; 281 case CTLTYPE_OPAQUE: 282 if (strcmp(fmt, "T,dev_t") == 0) { 283 set_T_dev_t ((char*)newval, &newval, &newsize); 284 break; 285 } 286 /* FALLTHROUGH */ 287 default: 288 errx(1, "oid '%s' is type %d," 289 " cannot set that", bufp, 290 kind & CTLTYPE); 291 } 292 293 i = show_var(mib, len); 294 if (sysctl(mib, len, 0, 0, newval, newsize) == -1) { 295 if (!i && !bflag) 296 putchar('\n'); 297 switch (errno) { 298 case EOPNOTSUPP: 299 errx(1, "%s: value is not available", 300 string); 301 case ENOTDIR: 302 errx(1, "%s: specification is incomplete", 303 string); 304 case ENOMEM: 305 errx(1, "%s: type is unknown to this program", 306 string); 307 default: 308 warn("%s", string); 309 return; 310 } 311 } 312 if (!bflag) 313 printf(" -> "); 314 i = nflag; 315 nflag = 1; 316 j = show_var(mib, len); 317 if (!j && !bflag) 318 putchar('\n'); 319 nflag = i; 320 } 321 } 322 323 /* These functions will dump out various interesting structures. */ 324 325 static int 326 S_clockinfo(int l2, void *p) 327 { 328 struct clockinfo *ci = (struct clockinfo*)p; 329 if (l2 != sizeof(*ci)) { 330 warnx("S_clockinfo %d != %d", l2, sizeof(*ci)); 331 return (0); 332 } 333 printf(hflag ? "{ hz = %'d, tick = %'d, profhz = %'d, stathz = %'d }" : 334 "{ hz = %d, tick = %d, profhz = %d, stathz = %d }", 335 ci->hz, ci->tick, ci->profhz, ci->stathz); 336 return (0); 337 } 338 339 static int 340 S_loadavg(int l2, void *p) 341 { 342 struct loadavg *tv = (struct loadavg*)p; 343 344 if (l2 != sizeof(*tv)) { 345 warnx("S_loadavg %d != %d", l2, sizeof(*tv)); 346 return (0); 347 } 348 printf(hflag ? "{ %'.2f %'.2f %'.2f }" : "{ %.2f %.2f %.2f }", 349 (double)tv->ldavg[0]/(double)tv->fscale, 350 (double)tv->ldavg[1]/(double)tv->fscale, 351 (double)tv->ldavg[2]/(double)tv->fscale); 352 return (0); 353 } 354 355 static int 356 S_timeval(int l2, void *p) 357 { 358 struct timeval *tv = (struct timeval*)p; 359 time_t tv_sec; 360 char *p1, *p2; 361 362 if (l2 != sizeof(*tv)) { 363 warnx("S_timeval %d != %d", l2, sizeof(*tv)); 364 return (0); 365 } 366 printf(hflag ? "{ sec = %'ld, usec = %'ld } " : 367 "{ sec = %ld, usec = %ld } ", 368 tv->tv_sec, tv->tv_usec); 369 tv_sec = tv->tv_sec; 370 p1 = strdup(ctime(&tv_sec)); 371 for (p2=p1; *p2 ; p2++) 372 if (*p2 == '\n') 373 *p2 = '\0'; 374 fputs(p1, stdout); 375 return (0); 376 } 377 378 static int 379 S_vmtotal(int l2, void *p) 380 { 381 struct vmtotal *v = (struct vmtotal *)p; 382 int pageKilo = getpagesize() / 1024; 383 384 if (l2 != sizeof(*v)) { 385 warnx("S_vmtotal %d != %d", l2, sizeof(*v)); 386 return (0); 387 } 388 389 printf( 390 "\nSystem wide totals computed every five seconds:" 391 " (values in kilobytes)\n"); 392 printf("===============================================\n"); 393 printf( 394 "Processes:\t\t(RUNQ: %hu Disk Wait: %hu Page Wait: " 395 "%hu Sleep: %hu)\n", 396 v->t_rq, v->t_dw, v->t_pw, v->t_sl); 397 printf( 398 "Virtual Memory:\t\t(Total: %luK, Active %lldK)\n", 399 (unsigned long)v->t_vm / 1024, 400 (long long)v->t_avm * pageKilo); 401 printf("Real Memory:\t\t(Total: %lldK Active %lldK)\n", 402 (long long)v->t_rm * pageKilo, (long long)v->t_arm * pageKilo); 403 printf("Shared Virtual Memory:\t(Total: %lldK Active: %lldK)\n", 404 (long long)v->t_vmshr * pageKilo, 405 (long long)v->t_avmshr * pageKilo); 406 printf("Shared Real Memory:\t(Total: %lldK Active: %lldK)\n", 407 (long long)v->t_rmshr * pageKilo, 408 (long long)v->t_armshr * pageKilo); 409 printf("Free Memory Pages:\t%lldK\n", (long long)v->t_free * pageKilo); 410 411 return (0); 412 } 413 414 static int 415 T_dev_t(int l2, void *p) 416 { 417 dev_t *d = (dev_t *)p; 418 if (l2 != sizeof(*d)) { 419 warnx("T_dev_T %d != %d", l2, sizeof(*d)); 420 return (0); 421 } 422 if ((int)(*d) != -1) { 423 if (minor(*d) > 255 || minor(*d) < 0) 424 printf("{ major = %d, minor = 0x%x }", 425 major(*d), minor(*d)); 426 else 427 printf("{ major = %d, minor = %d }", 428 major(*d), minor(*d)); 429 } 430 return (0); 431 } 432 433 static void 434 set_T_dev_t (char *path, void **val, size_t *size) 435 { 436 static struct stat statb; 437 438 if (strcmp(path, "none") && strcmp(path, "off")) { 439 int rc = stat (path, &statb); 440 if (rc) { 441 err(1, "cannot stat %s", path); 442 } 443 444 if (!S_ISCHR(statb.st_mode)) { 445 errx(1, "must specify a device special file."); 446 } 447 } else { 448 statb.st_rdev = NODEV; 449 } 450 *val = (char*) &statb.st_rdev; 451 *size = sizeof statb.st_rdev; 452 } 453 454 static int 455 set_IK(char *str, int *val) 456 { 457 float temp; 458 int len, kelv; 459 char *p, *endptr; 460 461 if ((len = strlen(str)) == 0) 462 return (0); 463 p = &str[len - 1]; 464 if (*p == 'C' || *p == 'F') { 465 *p = '\0'; 466 temp = strtof(str, &endptr); 467 if (endptr == str || *endptr != '\0') 468 return (0); 469 if (*p == 'F') 470 temp = (temp - 32) * 5 / 9; 471 kelv = temp * 10 + 2732; 472 } else { 473 kelv = (int)strtol(str, &endptr, 10); 474 if (endptr == str || *endptr != '\0') 475 return (0); 476 } 477 *val = kelv; 478 return (1); 479 } 480 481 /* 482 * These functions uses a presently undocumented interface to the kernel 483 * to walk the tree and get the type so it can print the value. 484 * This interface is under work and consideration, and should probably 485 * be killed with a big axe by the first person who can find the time. 486 * (be aware though, that the proper interface isn't as obvious as it 487 * may seem, there are various conflicting requirements. 488 */ 489 490 static int 491 name2oid(char *name, int *oidp) 492 { 493 int oid[2]; 494 int i; 495 size_t j; 496 497 oid[0] = 0; 498 oid[1] = 3; 499 500 j = CTL_MAXNAME * sizeof(int); 501 i = sysctl(oid, 2, oidp, &j, name, strlen(name)); 502 if (i < 0) 503 return i; 504 j /= sizeof(int); 505 return (j); 506 } 507 508 static int 509 oidfmt(int *oid, int len, char *fmt, u_int *kind) 510 { 511 int qoid[CTL_MAXNAME+2]; 512 u_char buf[BUFSIZ]; 513 int i; 514 size_t j; 515 516 qoid[0] = 0; 517 qoid[1] = 4; 518 memcpy(qoid + 2, oid, len * sizeof(int)); 519 520 j = sizeof(buf); 521 i = sysctl(qoid, len + 2, buf, &j, 0, 0); 522 if (i) 523 err(1, "sysctl fmt %d %d %d", i, j, errno); 524 525 if (kind) 526 *kind = *(u_int *)buf; 527 528 if (fmt) 529 strcpy(fmt, (char *)(buf + sizeof(u_int))); 530 return 0; 531 } 532 533 /* 534 * This formats and outputs the value of one variable 535 * 536 * Returns zero if anything was actually output. 537 * Returns one if didn't know what to do with this. 538 * Return minus one if we had errors. 539 */ 540 541 static int 542 show_var(int *oid, int nlen) 543 { 544 u_char buf[BUFSIZ], *val, *oval, *p; 545 char name[BUFSIZ], *fmt, *sep; 546 int qoid[CTL_MAXNAME+2]; 547 int i; 548 size_t j, len; 549 u_int kind; 550 int (*func)(int, void *); 551 552 bzero(buf, BUFSIZ); 553 bzero(name, BUFSIZ); 554 qoid[0] = 0; 555 memcpy(qoid + 2, oid, nlen * sizeof(int)); 556 557 qoid[1] = 1; 558 j = sizeof(name); 559 i = sysctl(qoid, nlen + 2, name, &j, 0, 0); 560 if (i || !j) 561 err(1, "sysctl name %d %d %d", i, j, errno); 562 563 if (Nflag) { 564 printf("%s", name); 565 return (0); 566 } 567 568 if (eflag) 569 sep = "="; 570 else 571 sep = ": "; 572 573 if (dflag) { /* just print description */ 574 qoid[1] = 5; 575 j = sizeof(buf); 576 i = sysctl(qoid, nlen + 2, buf, &j, 0, 0); 577 if (!nflag) 578 printf("%s%s", name, sep); 579 printf("%s", buf); 580 return (0); 581 } 582 /* find an estimate of how much we need for this var */ 583 j = 0; 584 i = sysctl(oid, nlen, 0, &j, 0, 0); 585 j += j; /* we want to be sure :-) */ 586 587 val = oval = malloc(j + 1); 588 if (val == NULL) { 589 warnx("malloc failed"); 590 return (-1); 591 } 592 len = j; 593 i = sysctl(oid, nlen, val, &len, 0, 0); 594 if (i || !len) { 595 free(oval); 596 return (1); 597 } 598 599 if (bflag) { 600 fwrite(val, 1, len, stdout); 601 free(oval); 602 return (0); 603 } 604 val[len] = '\0'; 605 fmt = buf; 606 oidfmt(oid, nlen, fmt, &kind); 607 p = val; 608 switch (*fmt) { 609 case 'A': 610 if (!nflag) 611 printf("%s%s", name, sep); 612 printf("%.*s", len, p); 613 free(oval); 614 return (0); 615 616 case 'I': 617 if (!nflag) 618 printf("%s%s", name, sep); 619 fmt++; 620 val = ""; 621 while (len >= sizeof(int)) { 622 fputs(val, stdout); 623 if (*fmt == 'U') 624 printf(hflag ? "%'u" : "%u", 625 *(unsigned int *)p); 626 else if (*fmt == 'X') 627 printf(hflag ? "%'#010x" : "%#010x", 628 *(unsigned int *)p); 629 else if (*fmt == 'K') { 630 if (*(int *)p < 0) 631 printf("%d", *(int *)p); 632 else 633 printf("%.1fC", 634 (*(int *)p - 2732.0) / 10); 635 } else 636 printf(hflag ? "%'d" : "%d", *(int *)p); 637 val = " "; 638 len -= sizeof(int); 639 p += sizeof(int); 640 } 641 free(oval); 642 return (0); 643 644 case 'L': 645 if (!nflag) 646 printf("%s%s", name, sep); 647 fmt++; 648 val = ""; 649 while (len >= sizeof(long)) { 650 fputs(val, stdout); 651 if (*fmt == 'U') 652 printf(hflag ? "%'lu" : "%lu", 653 *(unsigned long *)p); 654 else if (*fmt == 'X') 655 printf(hflag ? "%'#018lx" : "%#018lx", 656 *(unsigned long *)p); 657 else if (*fmt == 'K') { 658 if (*(long *)p < 0) 659 printf("%ld", *(long *)p); 660 else 661 printf("%.1fC", 662 (*(long *)p - 2732.0) / 10); 663 } else 664 printf(hflag ? "%'ld" : "%ld", *(long *)p); 665 val = " "; 666 len -= sizeof(long); 667 p += sizeof(long); 668 } 669 free(oval); 670 return (0); 671 672 case 'P': 673 if (!nflag) 674 printf("%s%s", name, sep); 675 printf("%p", *(void **)p); 676 free(oval); 677 return (0); 678 679 case 'T': 680 case 'S': 681 i = 0; 682 if (strcmp(fmt, "S,clockinfo") == 0) 683 func = S_clockinfo; 684 else if (strcmp(fmt, "S,timeval") == 0) 685 func = S_timeval; 686 else if (strcmp(fmt, "S,loadavg") == 0) 687 func = S_loadavg; 688 else if (strcmp(fmt, "S,vmtotal") == 0) 689 func = S_vmtotal; 690 else if (strcmp(fmt, "T,dev_t") == 0) 691 func = T_dev_t; 692 else 693 func = NULL; 694 if (func) { 695 if (!nflag) 696 printf("%s%s", name, sep); 697 i = (*func)(len, p); 698 free(oval); 699 return (i); 700 } 701 /* FALLTHROUGH */ 702 default: 703 if (!oflag && !xflag) { 704 free(oval); 705 return (1); 706 } 707 if (!nflag) 708 printf("%s%s", name, sep); 709 printf("Format:%s Length:%d Dump:0x", fmt, len); 710 while (len-- && (xflag || p < val + 16)) 711 printf("%02x", *p++); 712 if (!xflag && len > 16) 713 printf("..."); 714 free(oval); 715 return (0); 716 } 717 free(oval); 718 return (1); 719 } 720 721 static int 722 sysctl_all (int *oid, int len) 723 { 724 int name1[22], name2[22]; 725 int i, j; 726 size_t l1, l2; 727 728 name1[0] = 0; 729 name1[1] = 2; 730 l1 = 2; 731 if (len) { 732 memcpy(name1+2, oid, len * sizeof(int)); 733 l1 += len; 734 } else { 735 name1[2] = 1; 736 l1++; 737 } 738 for (;;) { 739 l2 = sizeof(name2); 740 j = sysctl(name1, l1, name2, &l2, 0, 0); 741 if (j < 0) { 742 if (errno == ENOENT) 743 return 0; 744 else 745 err(1, "sysctl(getnext) %d %d", j, l2); 746 } 747 748 l2 /= sizeof(int); 749 750 if (l2 < len) 751 return 0; 752 753 for (i = 0; i < len; i++) 754 if (name2[i] != oid[i]) 755 return 0; 756 757 i = show_var(name2, l2); 758 if (!i && !bflag) 759 putchar('\n'); 760 761 memcpy(name1+2, name2, l2 * sizeof(int)); 762 l1 = 2 + l2; 763 } 764 } 765