2266 lines
52 KiB
C
2266 lines
52 KiB
C
/* $NetBSD: sysctl.c,v 1.94 2004/04/25 05:36:49 atatat Exp $ */
|
|
|
|
/*-
|
|
* Copyright (c) 2003 The NetBSD Foundation, Inc.
|
|
* All rights reserved.
|
|
*
|
|
* This code is derived from software contributed to The NetBSD Foundation
|
|
* by Andrew Brown.
|
|
*
|
|
* Redistribution and use in source and binary forms, with or without
|
|
* modification, are permitted provided that the following conditions
|
|
* are met:
|
|
* 1. Redistributions of source code must retain the above copyright
|
|
* notice, this list of conditions and the following disclaimer.
|
|
* 2. Redistributions in binary form must reproduce the above copyright
|
|
* notice, this list of conditions and the following disclaimer in the
|
|
* documentation and/or other materials provided with the distribution.
|
|
* 3. Neither the name of The NetBSD Foundation nor the names of its
|
|
* contributors may be used to endorse or promote products derived
|
|
* from this software without specific prior written permission.
|
|
*
|
|
* THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
|
|
* ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
|
|
* TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
|
|
* PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
|
|
* BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
|
|
* CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
|
|
* SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
|
|
* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
|
|
* CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
|
|
* ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
|
|
* POSSIBILITY OF SUCH DAMAGE.
|
|
*/
|
|
|
|
/*
|
|
* Copyright (c) 1993
|
|
* The Regents of the University of California. All rights reserved.
|
|
*
|
|
* Redistribution and use in source and binary forms, with or without
|
|
* modification, are permitted provided that the following conditions
|
|
* are met:
|
|
* 1. Redistributions of source code must retain the above copyright
|
|
* notice, this list of conditions and the following disclaimer.
|
|
* 2. Redistributions in binary form must reproduce the above copyright
|
|
* notice, this list of conditions and the following disclaimer in the
|
|
* documentation and/or other materials provided with the distribution.
|
|
* 3. Neither the name of the University nor the names of its contributors
|
|
* may be used to endorse or promote products derived from this software
|
|
* without specific prior written permission.
|
|
*
|
|
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
|
|
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
|
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
|
* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
|
|
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
|
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
|
|
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
|
|
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
|
|
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
|
|
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
|
* SUCH DAMAGE.
|
|
*/
|
|
|
|
#include <sys/cdefs.h>
|
|
#ifndef lint
|
|
__COPYRIGHT(
|
|
"@(#) Copyright (c) 1993\n\
|
|
The Regents of the University of California. All rights reserved.\n");
|
|
#endif /* not lint */
|
|
|
|
#ifndef lint
|
|
#if 0
|
|
static char sccsid[] = "@(#)sysctl.c 8.1 (Berkeley) 6/6/93";
|
|
#else
|
|
__RCSID("$NetBSD: sysctl.c,v 1.94 2004/04/25 05:36:49 atatat Exp $");
|
|
#endif
|
|
#endif /* not lint */
|
|
|
|
#include <sys/types.h>
|
|
#include <sys/param.h>
|
|
#include <sys/sysctl.h>
|
|
#include <sys/mount.h>
|
|
#include <sys/resource.h>
|
|
#include <sys/stat.h>
|
|
#include <sys/sched.h>
|
|
#include <sys/socket.h>
|
|
#include <netinet/in.h>
|
|
#include <netinet/ip_var.h>
|
|
#include <netinet/tcp.h>
|
|
#include <netinet/tcp_timer.h>
|
|
#include <netinet/tcp_var.h>
|
|
#include <netinet/icmp6.h>
|
|
#include <nfs/rpcv2.h>
|
|
#include <nfs/nfsproto.h>
|
|
#include <nfs/nfs.h>
|
|
#include <machine/cpu.h>
|
|
#include <netkey/key_var.h>
|
|
|
|
#include <assert.h>
|
|
#include <ctype.h>
|
|
#include <err.h>
|
|
#include <errno.h>
|
|
#include <inttypes.h>
|
|
#include <stdarg.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <time.h>
|
|
#include <unistd.h>
|
|
|
|
/*
|
|
* this needs to be able to do the printing and the setting
|
|
*/
|
|
#define HANDLER_PROTO const char *, const char *, char *, \
|
|
int *, u_int, const struct sysctlnode *, \
|
|
u_int, void *
|
|
#define HANDLER_ARGS const char *sname, const char *dname, char *value, \
|
|
int *name, u_int namelen, const struct sysctlnode *pnode, \
|
|
u_int type, void *v
|
|
#define DISPLAY_VALUE 0
|
|
#define DISPLAY_OLD 1
|
|
#define DISPLAY_NEW 2
|
|
|
|
/*
|
|
* generic routines
|
|
*/
|
|
static struct handlespec *findprinter(const int *, u_int);
|
|
static struct handlespec *findwriter(const int *, u_int);
|
|
static void print_tree(int *, u_int, struct sysctlnode *, u_int, int);
|
|
static void write_number(int *, u_int, struct sysctlnode *, char *);
|
|
static void write_string(int *, u_int, struct sysctlnode *, char *);
|
|
static void display_number(const struct sysctlnode *, const char *,
|
|
const void *, size_t, int);
|
|
static void display_string(const struct sysctlnode *, const char *,
|
|
const void *, size_t, int);
|
|
static void display_struct(const struct sysctlnode *, const char *,
|
|
const void *, size_t, int);
|
|
static void hex_dump(const unsigned char *, size_t);
|
|
static void usage(void);
|
|
static void parse(char *);
|
|
static void parse_create(char *);
|
|
static void parse_destroy(char *);
|
|
static void parse_describe(char *);
|
|
static void getdesc1(int *, u_int, struct sysctlnode *);
|
|
static void getdesc(int *, u_int, struct sysctlnode *);
|
|
static void trim_whitespace(char *, int);
|
|
static void sysctlerror(int);
|
|
static void sysctlparseerror(u_int, const char *);
|
|
static void sysctlperror(const char *, ...);
|
|
#define EXIT(n) do { \
|
|
if (fn == NULL) exit(n); else return; } while (/*CONSTCOND*/0)
|
|
|
|
/*
|
|
* "borrowed" from libc:sysctlgetmibinfo.c
|
|
*/
|
|
int __learn_tree(int *, u_int, struct sysctlnode *);
|
|
|
|
/*
|
|
* "handlers"
|
|
*/
|
|
static void printother(HANDLER_PROTO);
|
|
static void kern_clockrate(HANDLER_PROTO);
|
|
static void kern_boottime(HANDLER_PROTO);
|
|
static void kern_consdev(HANDLER_PROTO);
|
|
static void kern_cp_time(HANDLER_PROTO);
|
|
static void vm_loadavg(HANDLER_PROTO);
|
|
static void proc_limit(HANDLER_PROTO);
|
|
#ifdef CPU_DISKINFO
|
|
static void machdep_diskinfo(HANDLER_PROTO);
|
|
#endif /* CPU_DISKINFO */
|
|
|
|
struct handlespec {
|
|
int ps_name[CTL_MAXNAME];
|
|
void (*ps_p)(HANDLER_PROTO);
|
|
void (*ps_w)(HANDLER_PROTO);
|
|
void *ps_d;
|
|
} handlers[] = {
|
|
{ { CTL_KERN, KERN_CLOCKRATE }, kern_clockrate },
|
|
{ { CTL_KERN, KERN_VNODE }, printother, NULL, "pstat" },
|
|
{ { CTL_KERN, KERN_PROC }, printother, NULL, "ps" },
|
|
{ { CTL_KERN, KERN_PROC2 }, printother, NULL, "ps" },
|
|
{ { CTL_KERN, KERN_PROC_ARGS }, printother, NULL, "ps" },
|
|
{ { CTL_KERN, KERN_FILE }, printother, NULL, "pstat" },
|
|
{ { CTL_KERN, KERN_NTPTIME }, printother, NULL,
|
|
"ntpdc -c kerninfo" },
|
|
{ { CTL_KERN, KERN_MSGBUF }, printother, NULL, "dmesg" },
|
|
{ { CTL_KERN, KERN_BOOTTIME }, kern_boottime },
|
|
{ { CTL_KERN, KERN_CONSDEV }, kern_consdev },
|
|
{ { CTL_KERN, KERN_CP_TIME, -1 }, kern_cp_time },
|
|
{ { CTL_KERN, KERN_CP_TIME }, kern_cp_time },
|
|
{ { CTL_KERN, KERN_SYSVIPC_INFO }, printother, NULL, "ipcs" },
|
|
{ { CTL_VM, VM_METER }, printother, NULL,
|
|
"vmstat' or 'systat" },
|
|
{ { CTL_VM, VM_LOADAVG }, vm_loadavg },
|
|
{ { CTL_VM, VM_UVMEXP }, printother, NULL,
|
|
"vmstat' or 'systat" },
|
|
{ { CTL_VM, VM_UVMEXP2 }, printother, NULL,
|
|
"vmstat' or 'systat" },
|
|
{ { CTL_VFS, 2 /* NFS */, NFS_NFSSTATS },
|
|
printother, NULL, "nfsstat" },
|
|
{ { CTL_NET }, printother, NULL, NULL },
|
|
{ { CTL_NET, PF_LOCAL }, printother, NULL, NULL },
|
|
{ { CTL_NET, PF_INET, IPPROTO_TCP, TCPCTL_IDENT },
|
|
printother, NULL, "identd" },
|
|
{ { CTL_NET, PF_INET6, IPPROTO_TCP, TCPCTL_IDENT },
|
|
printother, NULL, "identd" },
|
|
|
|
{ { CTL_NET, PF_INET6, IPPROTO_ICMPV6, ICMPV6CTL_ND6_DRLIST },
|
|
printother, NULL, "ndp" },
|
|
{ { CTL_NET, PF_INET6, IPPROTO_ICMPV6, ICMPV6CTL_ND6_PRLIST },
|
|
printother, NULL, "ndp" },
|
|
|
|
|
|
{ { CTL_NET, PF_KEY, KEYCTL_DUMPSA },
|
|
printother, NULL, "setkey" },
|
|
{ { CTL_NET, PF_KEY, KEYCTL_DUMPSP },
|
|
printother, NULL, "setkey" },
|
|
/* { { CTL_DEBUG }, printother, NULL, NULL }, */
|
|
{ { CTL_HW, HW_DISKSTATS }, printother, NULL, "iostat" },
|
|
#ifdef CPU_CONSDEV
|
|
{ { CTL_MACHDEP, CPU_CONSDEV }, kern_consdev },
|
|
#endif /* CPU_CONSDEV */
|
|
#ifdef CPU_DISKINFO
|
|
{ { CTL_MACHDEP, CPU_DISKINFO },machdep_diskinfo },
|
|
#endif /* CPU_CONSDEV */
|
|
{ { CTL_DDB }, printother, NULL, NULL },
|
|
{ { CTL_PROC, -1, PROC_PID_LIMIT, -1, -1 }, proc_limit, proc_limit },
|
|
{ { CTL_UNSPEC }, },
|
|
};
|
|
|
|
struct sysctlnode my_root = {
|
|
#if defined(lint)
|
|
0
|
|
#else /* defined(lint) */
|
|
.sysctl_flags = SYSCTL_VERSION|CTLFLAG_ROOT|CTLTYPE_NODE,
|
|
sysc_init_field(_sysctl_size, sizeof(struct sysctlnode)),
|
|
.sysctl_num = 0,
|
|
.sysctl_name = "(prog_root)",
|
|
#endif /* defined(lint) */
|
|
};
|
|
|
|
int Aflag, aflag, dflag, Mflag, nflag, qflag, rflag, wflag, xflag;
|
|
size_t nr;
|
|
char *fn;
|
|
int req;
|
|
FILE *warnfp = stderr;
|
|
|
|
/*
|
|
* vah-riables n stuff
|
|
*/
|
|
char gsname[SYSCTL_NAMELEN * CTL_MAXNAME + CTL_MAXNAME],
|
|
gdname[10 * CTL_MAXNAME + CTL_MAXNAME];
|
|
char sep[2] = ".", *eq = " = ";
|
|
const char *lname[] = {
|
|
"top", "second", "third", "fourth", "fifth", "sixth",
|
|
"seventh", "eighth", "ninth", "tenth", "eleventh", "twelfth"
|
|
};
|
|
|
|
/*
|
|
* you've heard of main, haven't you?
|
|
*/
|
|
int
|
|
main(int argc, char *argv[])
|
|
{
|
|
int name[CTL_MAXNAME];
|
|
int ch;
|
|
|
|
while ((ch = getopt(argc, argv, "Aabdef:Mnqrwx")) != -1) {
|
|
switch (ch) {
|
|
case 'A':
|
|
Aflag++;
|
|
break;
|
|
case 'a':
|
|
aflag++;
|
|
break;
|
|
case 'd':
|
|
dflag++;
|
|
break;
|
|
case 'e':
|
|
eq = "=";
|
|
break;
|
|
case 'f':
|
|
fn = optarg;
|
|
wflag++;
|
|
break;
|
|
case 'M':
|
|
Mflag++;
|
|
break;
|
|
case 'n':
|
|
nflag++;
|
|
break;
|
|
case 'q':
|
|
qflag++;
|
|
break;
|
|
case 'b': /* FreeBSD compat */
|
|
case 'r':
|
|
rflag++;
|
|
break;
|
|
case 'w':
|
|
wflag++;
|
|
break;
|
|
case 'x':
|
|
xflag++;
|
|
break;
|
|
default:
|
|
usage();
|
|
}
|
|
}
|
|
|
|
argc -= optind;
|
|
argv += optind;
|
|
|
|
if (qflag && !wflag)
|
|
usage();
|
|
if (xflag && rflag)
|
|
usage();
|
|
/* if ((xflag || rflag) && wflag)
|
|
usage(); */
|
|
/* if (aflag && Mflag)
|
|
usage(); */
|
|
if ((Aflag || Mflag || dflag) && argc == 0 && fn == NULL)
|
|
aflag = 1;
|
|
|
|
if (Aflag)
|
|
warnfp = stdout;
|
|
req = 0;
|
|
|
|
if (aflag) {
|
|
print_tree(&name[0], 0, NULL, CTLTYPE_NODE, 1);
|
|
/* if (argc == 0) */
|
|
return (0);
|
|
}
|
|
|
|
if (fn) {
|
|
FILE *fp;
|
|
char *l;
|
|
|
|
fp = fopen(fn, "r");
|
|
if (fp == NULL) {
|
|
err(1, "%s", fn);
|
|
} else {
|
|
nr = 0;
|
|
while ((l = fparseln(fp, NULL, &nr, NULL, 0)) != NULL)
|
|
{
|
|
if (*l) {
|
|
parse(l);
|
|
free(l);
|
|
}
|
|
}
|
|
fclose(fp);
|
|
}
|
|
return (0);
|
|
}
|
|
|
|
if (argc == 0)
|
|
usage();
|
|
|
|
while (argc-- > 0)
|
|
parse(*argv++);
|
|
|
|
return (0);
|
|
}
|
|
|
|
/*
|
|
* ********************************************************************
|
|
* how to find someone special to handle the reading (or maybe even
|
|
* writing) of a particular node
|
|
* ********************************************************************
|
|
*/
|
|
static struct handlespec *
|
|
findprinter(const int *name, u_int namelen)
|
|
{
|
|
struct handlespec *p;
|
|
int i, j;
|
|
|
|
if (namelen < 1)
|
|
return (NULL);
|
|
|
|
p = &handlers[0];
|
|
for (i = 0; p[i].ps_name[0] != CTL_UNSPEC; i++) {
|
|
for (j = 0; j < namelen; j++)
|
|
if (p[i].ps_name[j] != name[j] &&
|
|
p[i].ps_name[j] != -1)
|
|
break;
|
|
if (j == namelen && p[i].ps_p != NULL)
|
|
return (&p[i]);
|
|
}
|
|
|
|
return (NULL);
|
|
}
|
|
|
|
static struct handlespec *
|
|
findwriter(const int *name, u_int namelen)
|
|
{
|
|
struct handlespec *p;
|
|
int i, j;
|
|
|
|
if (namelen < 1)
|
|
return (NULL);
|
|
|
|
p = &handlers[0];
|
|
for (i = 0; p[i].ps_name[0] != CTL_UNSPEC; i++) {
|
|
for (j = 0; j < namelen; j++)
|
|
if (p[i].ps_name[j] != name[j] &&
|
|
p[i].ps_name[j] != -1)
|
|
break;
|
|
if (j == namelen && p[i].ps_w != NULL)
|
|
return (&p[i]);
|
|
}
|
|
|
|
return (NULL);
|
|
}
|
|
|
|
/*
|
|
* ********************************************************************
|
|
* convert this special number to a special string so we can print the
|
|
* mib
|
|
* ********************************************************************
|
|
*/
|
|
static const char *
|
|
sf(u_int f)
|
|
{
|
|
static char s[256];
|
|
char *c;
|
|
|
|
s[0] = '\0';
|
|
c = "";
|
|
|
|
#define print_flag(_f, _s, _c, _q, _x) \
|
|
if (((_f) & (__CONCAT(CTLFLAG_,_x))) == (__CONCAT(CTLFLAG_,_q))) { \
|
|
strlcat((_s), (_c), sizeof(_s)); \
|
|
strlcat((_s), __STRING(_q), sizeof(_s)); \
|
|
(_c) = ","; \
|
|
(_f) &= ~(__CONCAT(CTLFLAG_,_x)); \
|
|
}
|
|
print_flag(f, s, c, READONLY, READWRITE);
|
|
print_flag(f, s, c, READONLY1, READWRITE);
|
|
print_flag(f, s, c, READONLY2, READWRITE);
|
|
print_flag(f, s, c, READWRITE, READWRITE);
|
|
print_flag(f, s, c, ANYWRITE, ANYWRITE);
|
|
print_flag(f, s, c, PRIVATE, PRIVATE);
|
|
print_flag(f, s, c, PERMANENT, PERMANENT);
|
|
print_flag(f, s, c, OWNDATA, OWNDATA);
|
|
print_flag(f, s, c, IMMEDIATE, IMMEDIATE);
|
|
print_flag(f, s, c, HEX, HEX);
|
|
print_flag(f, s, c, ROOT, ROOT);
|
|
print_flag(f, s, c, ANYNUMBER, ANYNUMBER);
|
|
print_flag(f, s, c, HIDDEN, HIDDEN);
|
|
print_flag(f, s, c, ALIAS, ALIAS);
|
|
#undef print_flag
|
|
|
|
if (f) {
|
|
char foo[9];
|
|
snprintf(foo, sizeof(foo), "%x", f);
|
|
strlcat(s, c, sizeof(s));
|
|
strlcat(s, foo, sizeof(s));
|
|
}
|
|
|
|
return (s);
|
|
}
|
|
|
|
static const char *
|
|
st(u_int t)
|
|
{
|
|
|
|
switch (t) {
|
|
case CTLTYPE_NODE:
|
|
return "NODE";
|
|
case CTLTYPE_INT:
|
|
return "INT";
|
|
case CTLTYPE_STRING:
|
|
return "STRING";
|
|
case CTLTYPE_QUAD:
|
|
return "QUAD";
|
|
case CTLTYPE_STRUCT:
|
|
return "STRUCT";
|
|
}
|
|
|
|
return "???";
|
|
}
|
|
|
|
/*
|
|
* ********************************************************************
|
|
* print this node and any others underneath it
|
|
* ********************************************************************
|
|
*/
|
|
static void
|
|
print_tree(int *name, u_int namelen, struct sysctlnode *pnode, u_int type,
|
|
int add)
|
|
{
|
|
struct sysctlnode *node;
|
|
int rc, ni;
|
|
size_t sz;
|
|
char *sp, *dp, n[20];
|
|
struct handlespec *p;
|
|
|
|
sp = &gsname[strlen(gsname)];
|
|
dp = &gdname[strlen(gdname)];
|
|
|
|
if (sp != &gsname[0] && dp == &gdname[0]) {
|
|
/*
|
|
* aw...shucks. now we must play catch up
|
|
*/
|
|
for (ni = 0; ni < namelen; ni++) {
|
|
(void)snprintf(n, sizeof(n), "%d", name[ni]);
|
|
if (ni > 0)
|
|
strncat(gdname, ".", sizeof(gdname));
|
|
strncat(gdname, n, sizeof(gdname));
|
|
}
|
|
}
|
|
|
|
if (pnode == NULL)
|
|
pnode = &my_root;
|
|
else if (add) {
|
|
snprintf(n, sizeof(n), "%d", pnode->sysctl_num);
|
|
if (namelen > 1) {
|
|
strncat(gsname, sep, sizeof(gsname));
|
|
strncat(gdname, ".", sizeof(gdname));
|
|
}
|
|
strncat(gsname, pnode->sysctl_name, sizeof(gsname));
|
|
strncat(gdname, n, sizeof(gdname));
|
|
}
|
|
|
|
if (Mflag && pnode != &my_root) {
|
|
if (nflag)
|
|
printf("%s: ", gdname);
|
|
else
|
|
printf("%s (%s): ", gsname, gdname);
|
|
printf("CTLTYPE_%s", st(type));
|
|
if (type == CTLTYPE_NODE) {
|
|
if (SYSCTL_FLAGS(pnode->sysctl_flags) & CTLFLAG_ALIAS)
|
|
printf(", alias %d",
|
|
pnode->sysctl_alias);
|
|
else
|
|
printf(", children %d/%d",
|
|
pnode->sysctl_clen,
|
|
pnode->sysctl_csize);
|
|
}
|
|
printf(", size %zu", pnode->sysctl_size);
|
|
printf(", flags 0x%x<%s>",
|
|
SYSCTL_FLAGS(pnode->sysctl_flags),
|
|
sf(SYSCTL_FLAGS(pnode->sysctl_flags)));
|
|
if (pnode->sysctl_func)
|
|
printf(", func=%p", pnode->sysctl_func);
|
|
printf(", ver=%d", pnode->sysctl_ver);
|
|
printf("\n");
|
|
if (type != CTLTYPE_NODE) {
|
|
*sp = *dp = '\0';
|
|
return;
|
|
}
|
|
}
|
|
|
|
if (dflag && pnode != &my_root) {
|
|
if (Aflag || type != CTLTYPE_NODE) {
|
|
if (pnode->sysctl_desc == NULL)
|
|
getdesc1(name, namelen, pnode);
|
|
if (Aflag || !add ||
|
|
(pnode->sysctl_desc != NULL &&
|
|
pnode->sysctl_desc != (const char*)-1)) {
|
|
if (!nflag)
|
|
printf("%s: ", gsname);
|
|
if (pnode->sysctl_desc == NULL ||
|
|
pnode->sysctl_desc == (const char*)-1)
|
|
printf("(no description)\n");
|
|
else
|
|
printf("%s\n", pnode->sysctl_desc);
|
|
}
|
|
}
|
|
|
|
if (type != CTLTYPE_NODE) {
|
|
*sp = *dp = '\0';
|
|
return;
|
|
}
|
|
}
|
|
|
|
/*
|
|
* if this is an alias and we added our name, that means we
|
|
* got here by recursing down into the tree, so skip it. The
|
|
* only way to print an aliased node is with either -M or by
|
|
* name specifically.
|
|
*/
|
|
if (SYSCTL_FLAGS(pnode->sysctl_flags) & CTLFLAG_ALIAS && add) {
|
|
*sp = *dp = '\0';
|
|
return;
|
|
}
|
|
|
|
p = findprinter(name, namelen);
|
|
if (type != CTLTYPE_NODE && p != NULL) {
|
|
(*p->ps_p)(gsname, gdname, NULL, name, namelen, pnode, type,
|
|
p->ps_d);
|
|
*sp = *dp = '\0';
|
|
return;
|
|
}
|
|
|
|
if (type != CTLTYPE_NODE && pnode->sysctl_size == 0) {
|
|
rc = sysctl(&name[0], namelen, NULL, &sz, NULL, 0);
|
|
if (rc == -1) {
|
|
sysctlerror(1);
|
|
*sp = *dp = '\0';
|
|
return;
|
|
}
|
|
if (sz == 0) {
|
|
if ((Aflag || req) && !Mflag)
|
|
printf("%s: node contains no data\n", gsname);
|
|
*sp = *dp = '\0';
|
|
return;
|
|
}
|
|
}
|
|
else
|
|
sz = pnode->sysctl_size;
|
|
|
|
switch (type) {
|
|
case CTLTYPE_NODE: {
|
|
__learn_tree(name, namelen, pnode);
|
|
node = pnode->sysctl_child;
|
|
if (node == NULL) {
|
|
if (dflag)
|
|
/* do nothing */;
|
|
else if (p != NULL)
|
|
(*p->ps_p)(gsname, gdname, NULL, name, namelen,
|
|
pnode, type, p->ps_d);
|
|
else if ((Aflag || req) && !Mflag)
|
|
printf("%s: no children\n", gsname);
|
|
}
|
|
else {
|
|
if (dflag)
|
|
/*
|
|
* get all descriptions for next level
|
|
* in one chunk
|
|
*/
|
|
getdesc(name, namelen, pnode);
|
|
req = 0;
|
|
for (ni = 0; ni < pnode->sysctl_clen; ni++) {
|
|
name[namelen] = node[ni].sysctl_num;
|
|
if ((node[ni].sysctl_flags & CTLFLAG_HIDDEN) &&
|
|
!(Aflag || req))
|
|
continue;
|
|
print_tree(name, namelen + 1, &node[ni],
|
|
SYSCTL_TYPE(node[ni].sysctl_flags),
|
|
1);
|
|
}
|
|
}
|
|
break;
|
|
}
|
|
case CTLTYPE_INT: {
|
|
int i;
|
|
rc = sysctl(name, namelen, &i, &sz, NULL, 0);
|
|
if (rc == -1) {
|
|
sysctlerror(1);
|
|
break;
|
|
}
|
|
display_number(pnode, gsname, &i, sizeof(i), DISPLAY_VALUE);
|
|
break;
|
|
}
|
|
case CTLTYPE_STRING: {
|
|
unsigned char buf[1024], *tbuf;
|
|
tbuf = buf;
|
|
sz = sizeof(buf);
|
|
rc = sysctl(&name[0], namelen, tbuf, &sz, NULL, 0);
|
|
if (rc == -1 && errno == ENOMEM) {
|
|
tbuf = malloc(sz);
|
|
if (tbuf == NULL) {
|
|
sysctlerror(1);
|
|
break;
|
|
}
|
|
rc = sysctl(&name[0], namelen, tbuf, &sz, NULL, 0);
|
|
}
|
|
if (rc == -1)
|
|
sysctlerror(1);
|
|
else
|
|
display_string(pnode, gsname, buf, sz, DISPLAY_VALUE);
|
|
if (tbuf != buf)
|
|
free(tbuf);
|
|
break;
|
|
}
|
|
case CTLTYPE_QUAD: {
|
|
u_quad_t q;
|
|
sz = sizeof(q);
|
|
rc = sysctl(&name[0], namelen, &q, &sz, NULL, 0);
|
|
if (rc == -1) {
|
|
sysctlerror(1);
|
|
break;
|
|
}
|
|
display_number(pnode, gsname, &q, sizeof(q), DISPLAY_VALUE);
|
|
break;
|
|
}
|
|
case CTLTYPE_STRUCT: {
|
|
/*
|
|
* we shouldn't actually get here, but if we
|
|
* do, would it be nice to have *something* to
|
|
* do other than completely ignore the
|
|
* request.
|
|
*/
|
|
unsigned char *d;
|
|
if ((d = malloc(sz)) == NULL) {
|
|
fprintf(warnfp, "%s: !malloc failed!\n", gsname);
|
|
break;
|
|
}
|
|
rc = sysctl(&name[0], namelen, d, &sz, NULL, 0);
|
|
if (rc == -1) {
|
|
sysctlerror(1);
|
|
break;
|
|
}
|
|
display_struct(pnode, gsname, d, sz, DISPLAY_VALUE);
|
|
free(d);
|
|
break;
|
|
}
|
|
default:
|
|
/* should i print an error here? */
|
|
break;
|
|
}
|
|
|
|
*sp = *dp = '\0';
|
|
}
|
|
|
|
/*
|
|
* ********************************************************************
|
|
* parse a request, possibly determining that it's a create or destroy
|
|
* request
|
|
* ********************************************************************
|
|
*/
|
|
static void
|
|
parse(char *l)
|
|
{
|
|
struct sysctlnode *node;
|
|
struct handlespec *w;
|
|
int name[CTL_MAXNAME], dodesc = 0;
|
|
u_int namelen, type;
|
|
char *key, *value, *dot;
|
|
size_t sz;
|
|
|
|
req = 1;
|
|
key = l;
|
|
value = strchr(l, '=');
|
|
if (value != NULL)
|
|
*value++ = '\0';
|
|
|
|
if ((dot = strpbrk(key, "./")) == NULL)
|
|
sep[0] = '.';
|
|
else
|
|
sep[0] = dot[0];
|
|
sep[1] = '\0';
|
|
|
|
while (key[0] == sep[0] && key[1] == sep[0]) {
|
|
if (value != NULL)
|
|
value[-1] = '=';
|
|
if (strncmp(key + 2, "create", 6) == 0 &&
|
|
(key[8] == '=' || key[8] == sep[0]))
|
|
parse_create(key + 8 + (key[8] == '=' ? 1 : 0));
|
|
else if (strncmp(key + 2, "destroy", 7) == 0 &&
|
|
(key[9] == '=' || key[9] == sep[0]))
|
|
parse_destroy(key + 9 + (key[9] == '=' ? 1 : 0));
|
|
else if (strncmp(key + 2, "describe", 8) == 0 &&
|
|
(key[10] == '=' || key[10] == sep[0])) {
|
|
key += 10 + (key[10] == '=');
|
|
if ((value = strchr(key, '=')) != NULL)
|
|
parse_describe(key);
|
|
else {
|
|
if (!dflag)
|
|
dodesc = 1;
|
|
break;
|
|
}
|
|
}
|
|
else
|
|
sysctlperror("unable to parse '%s'\n", key);
|
|
return;
|
|
}
|
|
|
|
node = &my_root;
|
|
namelen = CTL_MAXNAME;
|
|
sz = sizeof(gsname);
|
|
|
|
if (sysctlgetmibinfo(key, &name[0], &namelen, gsname, &sz, &node,
|
|
SYSCTL_VERSION) == -1) {
|
|
sysctlparseerror(namelen, l);
|
|
EXIT(1);
|
|
}
|
|
|
|
type = SYSCTL_TYPE(node->sysctl_flags);
|
|
|
|
if (value == NULL) {
|
|
if (dodesc)
|
|
dflag = 1;
|
|
print_tree(&name[0], namelen, node, type, 0);
|
|
if (dodesc)
|
|
dflag = 0;
|
|
gsname[0] = '\0';
|
|
return;
|
|
}
|
|
|
|
if (fn)
|
|
trim_whitespace(value, 1);
|
|
|
|
if (!wflag) {
|
|
sysctlperror("Must specify -w to set variables\n");
|
|
exit(1);
|
|
}
|
|
|
|
if (type != CTLTYPE_NODE && (w = findwriter(name, namelen)) != NULL) {
|
|
(*w->ps_w)(gsname, gdname, value, name, namelen, node, type,
|
|
w->ps_d);
|
|
gsname[0] = '\0';
|
|
return;
|
|
}
|
|
|
|
switch (type) {
|
|
case CTLTYPE_NODE:
|
|
/*
|
|
* XXX old behavior is to print. should we error instead?
|
|
*/
|
|
print_tree(&name[0], namelen, node, CTLTYPE_NODE, 1);
|
|
break;
|
|
case CTLTYPE_INT:
|
|
write_number(&name[0], namelen, node, value);
|
|
break;
|
|
case CTLTYPE_STRING:
|
|
write_string(&name[0], namelen, node, value);
|
|
break;
|
|
case CTLTYPE_QUAD:
|
|
write_number(&name[0], namelen, node, value);
|
|
break;
|
|
case CTLTYPE_STRUCT:
|
|
/*
|
|
* XXX old behavior is to print. should we error instead?
|
|
*/
|
|
/* fprintf(warnfp, "you can't write to %s\n", gsname); */
|
|
print_tree(&name[0], namelen, node, type, 0);
|
|
break;
|
|
}
|
|
}
|
|
|
|
/*
|
|
|
|
//create=foo.bar.whatever...,
|
|
[type=(int|quad|string|struct|node),]
|
|
[size=###,]
|
|
[n=###,]
|
|
[flags=(iohxparw12),]
|
|
[addr=0x####,|symbol=...|value=...]
|
|
|
|
size is optional for some types. type must be set before anything
|
|
else. nodes can have [r12whp], but nothing else applies. if no
|
|
size or type is given, node is asserted. writeable is the default,
|
|
with [r12w] being read-only, writeable below securelevel 1,
|
|
writeable below securelevel 2, and unconditionally writeable
|
|
respectively. if you specify addr, it is assumed to be the name of
|
|
a kernel symbol, if value, CTLFLAG_OWNDATA will be asserted for
|
|
strings, CTLFLAG_IMMEDIATE for ints and u_quad_ts. you cannot
|
|
specify both value and addr.
|
|
|
|
*/
|
|
|
|
static void
|
|
parse_create(char *l)
|
|
{
|
|
struct sysctlnode node;
|
|
size_t sz;
|
|
char *nname, *key, *value, *data, *addr, *c, *t;
|
|
int name[CTL_MAXNAME], i, rc, method, flags, rw;
|
|
u_int namelen, type;
|
|
u_quad_t uq;
|
|
quad_t q;
|
|
|
|
if (!wflag) {
|
|
sysctlperror("Must specify -w to create nodes\n");
|
|
exit(1);
|
|
}
|
|
|
|
/*
|
|
* these are the pieces that make up the description of a new
|
|
* node
|
|
*/
|
|
memset(&node, 0, sizeof(node));
|
|
node.sysctl_num = CTL_CREATE; /* any number is fine */
|
|
flags = 0;
|
|
rw = -1;
|
|
type = 0;
|
|
sz = 0;
|
|
data = addr = NULL;
|
|
memset(name, 0, sizeof(name));
|
|
namelen = 0;
|
|
method = 0;
|
|
|
|
/*
|
|
* misc stuff used when constructing
|
|
*/
|
|
i = 0;
|
|
uq = 0;
|
|
key = NULL;
|
|
value = NULL;
|
|
|
|
/*
|
|
* the name of the thing we're trying to create is first, so
|
|
* pick it off.
|
|
*/
|
|
nname = l;
|
|
if ((c = strchr(nname, ',')) != NULL)
|
|
*c++ = '\0';
|
|
|
|
while (c != NULL) {
|
|
|
|
/*
|
|
* pull off the next "key=value" pair
|
|
*/
|
|
key = c;
|
|
if ((t = strchr(key, '=')) != NULL) {
|
|
*t++ = '\0';
|
|
value = t;
|
|
}
|
|
else
|
|
value = NULL;
|
|
|
|
/*
|
|
* if the "key" is "value", then that eats the rest of
|
|
* the string, so we're done, otherwise bite it off at
|
|
* the next comma.
|
|
*/
|
|
if (strcmp(key, "value") == 0) {
|
|
c = NULL;
|
|
data = value;
|
|
break;
|
|
}
|
|
else {
|
|
if ((c = strchr(value, ',')) != NULL)
|
|
*c++ = '\0';
|
|
}
|
|
|
|
/*
|
|
* note that we (mostly) let the invoker of sysctl(8)
|
|
* play rampant here and depend on the kernel to tell
|
|
* them that they were wrong. well...within reason.
|
|
* we later check the various parameters against each
|
|
* other to make sure it makes some sort of sense.
|
|
*/
|
|
if (strcmp(key, "addr") == 0) {
|
|
/*
|
|
* we can't check these two. only the kernel
|
|
* can tell us when it fails to find the name
|
|
* (or if the address is invalid).
|
|
*/
|
|
if (method != 0) {
|
|
sysctlperror(
|
|
"%s: already have %s for new node\n",
|
|
nname,
|
|
method == CTL_CREATE ? "addr" : "symbol");
|
|
EXIT(1);
|
|
}
|
|
errno = 0;
|
|
addr = (void*)strtoul(value, &t, 0);
|
|
if (t == value || *t != '\0' || errno != 0) {
|
|
sysctlperror(
|
|
"%s: '%s' is not a valid address\n",
|
|
nname, value);
|
|
EXIT(1);
|
|
}
|
|
method = CTL_CREATE;
|
|
}
|
|
else if (strcmp(key, "symbol") == 0) {
|
|
if (method != 0) {
|
|
sysctlperror(
|
|
"%s: already have %s for new node\n",
|
|
nname,
|
|
method == CTL_CREATE ? "addr" : "symbol");
|
|
EXIT(1);
|
|
}
|
|
addr = value;
|
|
method = CTL_CREATESYM;
|
|
}
|
|
else if (strcmp(key, "type") == 0) {
|
|
if (strcmp(value, "node") == 0)
|
|
type = CTLTYPE_NODE;
|
|
else if (strcmp(value, "int") == 0) {
|
|
sz = sizeof(int);
|
|
type = CTLTYPE_INT;
|
|
}
|
|
else if (strcmp(value, "string") == 0)
|
|
type = CTLTYPE_STRING;
|
|
else if (strcmp(value, "quad") == 0) {
|
|
sz = sizeof(u_quad_t);
|
|
type = CTLTYPE_QUAD;
|
|
}
|
|
else if (strcmp(value, "struct") == 0)
|
|
type = CTLTYPE_STRUCT;
|
|
else {
|
|
sysctlperror(
|
|
"%s: '%s' is not a valid type\n",
|
|
nname, value);
|
|
EXIT(1);
|
|
}
|
|
}
|
|
else if (strcmp(key, "size") == 0) {
|
|
errno = 0;
|
|
/*
|
|
* yes, i know size_t is not an unsigned long,
|
|
* but we can all agree that it ought to be,
|
|
* right?
|
|
*/
|
|
sz = strtoul(value, &t, 0);
|
|
if (t == value || *t != '\0' || errno != 0) {
|
|
sysctlperror(
|
|
"%s: '%s' is not a valid size\n",
|
|
nname, value);
|
|
EXIT(1);
|
|
}
|
|
}
|
|
else if (strcmp(key, "n") == 0) {
|
|
errno = 0;
|
|
q = strtoq(value, &t, 0);
|
|
if (t == value || *t != '\0' || errno != 0 ||
|
|
q < INT_MIN || q > UINT_MAX) {
|
|
sysctlperror(
|
|
"%s: '%s' is not a valid mib number\n",
|
|
nname, value);
|
|
EXIT(1);
|
|
}
|
|
node.sysctl_num = (int)q;
|
|
}
|
|
else if (strcmp(key, "flags") == 0) {
|
|
t = value;
|
|
while (*t != '\0') {
|
|
switch (*t) {
|
|
case 'a':
|
|
flags |= CTLFLAG_ANYWRITE;
|
|
break;
|
|
case 'h':
|
|
flags |= CTLFLAG_HIDDEN;
|
|
break;
|
|
case 'i':
|
|
flags |= CTLFLAG_IMMEDIATE;
|
|
break;
|
|
case 'o':
|
|
flags |= CTLFLAG_OWNDATA;
|
|
break;
|
|
case 'p':
|
|
flags |= CTLFLAG_PRIVATE;
|
|
break;
|
|
case 'x':
|
|
flags |= CTLFLAG_HEX;
|
|
break;
|
|
|
|
case 'r':
|
|
rw = CTLFLAG_READONLY;
|
|
break;
|
|
case '1':
|
|
rw = CTLFLAG_READONLY1;
|
|
break;
|
|
case '2':
|
|
rw = CTLFLAG_READONLY2;
|
|
break;
|
|
case 'w':
|
|
rw = CTLFLAG_READWRITE;
|
|
break;
|
|
default:
|
|
sysctlperror(
|
|
"%s: '%c' is not a valid flag\n",
|
|
nname, *t);
|
|
EXIT(1);
|
|
}
|
|
t++;
|
|
}
|
|
}
|
|
else {
|
|
sysctlperror("%s: unrecognized keyword '%s'\n",
|
|
nname, key);
|
|
EXIT(1);
|
|
}
|
|
}
|
|
|
|
/*
|
|
* now that we've finished parsing the given string, fill in
|
|
* anything they didn't specify
|
|
*/
|
|
if (type == 0)
|
|
type = CTLTYPE_NODE;
|
|
|
|
/*
|
|
* the "data" can be interpreted various ways depending on the
|
|
* type of node we're creating, as can the size
|
|
*/
|
|
if (data != NULL) {
|
|
if (addr != NULL) {
|
|
sysctlperror(
|
|
"%s: cannot specify both value and "
|
|
"address\n", nname);
|
|
EXIT(1);
|
|
}
|
|
|
|
switch (type) {
|
|
case CTLTYPE_INT:
|
|
errno = 0;
|
|
q = strtoq(data, &t, 0);
|
|
if (t == data || *t != '\0' || errno != 0 ||
|
|
q < INT_MIN || q > UINT_MAX) {
|
|
sysctlperror(
|
|
"%s: '%s' is not a valid integer\n",
|
|
nname, value);
|
|
EXIT(1);
|
|
}
|
|
i = (int)q;
|
|
if (!(flags & CTLFLAG_OWNDATA)) {
|
|
flags |= CTLFLAG_IMMEDIATE;
|
|
node.sysctl_idata = i;
|
|
}
|
|
else
|
|
node.sysctl_data = &i;
|
|
if (sz == 0)
|
|
sz = sizeof(int);
|
|
break;
|
|
case CTLTYPE_STRING:
|
|
flags |= CTLFLAG_OWNDATA;
|
|
node.sysctl_data = data;
|
|
if (sz == 0)
|
|
sz = strlen(data) + 1;
|
|
else if (sz < strlen(data) + 1) {
|
|
sysctlperror("%s: ignoring size=%zu for "
|
|
"string node, too small for given "
|
|
"value\n", nname, sz);
|
|
sz = strlen(data) + 1;
|
|
}
|
|
break;
|
|
case CTLTYPE_QUAD:
|
|
errno = 0;
|
|
uq = strtouq(data, &t, 0);
|
|
if (t == data || *t != '\0' || errno != 0) {
|
|
sysctlperror(
|
|
"%s: '%s' is not a valid quad\n",
|
|
nname, value);
|
|
EXIT(1);
|
|
}
|
|
if (!(flags & CTLFLAG_OWNDATA)) {
|
|
flags |= CTLFLAG_IMMEDIATE;
|
|
node.sysctl_qdata = uq;
|
|
}
|
|
else
|
|
node.sysctl_data = &uq;
|
|
if (sz == 0)
|
|
sz = sizeof(u_quad_t);
|
|
break;
|
|
case CTLTYPE_STRUCT:
|
|
sysctlperror("%s: struct not initializable\n",
|
|
nname);
|
|
EXIT(1);
|
|
}
|
|
|
|
/*
|
|
* these methods have all provided local starting
|
|
* values that the kernel must copy in
|
|
*/
|
|
}
|
|
|
|
/*
|
|
* hmm...no data, but we have an address of data. that's
|
|
* fine.
|
|
*/
|
|
else if (addr != 0)
|
|
node.sysctl_data = (void*)addr;
|
|
|
|
/*
|
|
* no data and no address? well...okay. we might be able to
|
|
* manage that.
|
|
*/
|
|
else if (type != CTLTYPE_NODE) {
|
|
if (sz == 0) {
|
|
sysctlperror(
|
|
"%s: need a size or a starting value\n",
|
|
nname);
|
|
EXIT(1);
|
|
}
|
|
if (!(flags & CTLFLAG_IMMEDIATE))
|
|
flags |= CTLFLAG_OWNDATA;
|
|
}
|
|
|
|
/*
|
|
* now we do a few sanity checks on the description we've
|
|
* assembled
|
|
*/
|
|
if ((flags & CTLFLAG_IMMEDIATE) &&
|
|
(type == CTLTYPE_STRING || type == CTLTYPE_STRUCT)) {
|
|
sysctlperror("%s: cannot make an immediate %s\n",
|
|
nname,
|
|
(type == CTLTYPE_STRING) ? "string" : "struct");
|
|
EXIT(1);
|
|
}
|
|
if (type == CTLTYPE_NODE && node.sysctl_data != NULL) {
|
|
sysctlperror("%s: nodes do not have data\n", nname);
|
|
EXIT(1);
|
|
}
|
|
|
|
/*
|
|
* some types must have a particular size
|
|
*/
|
|
if (sz != 0) {
|
|
if ((type == CTLTYPE_INT && sz != sizeof(int)) ||
|
|
(type == CTLTYPE_QUAD && sz != sizeof(u_quad_t)) ||
|
|
(type == CTLTYPE_NODE && sz != 0)) {
|
|
sysctlperror("%s: wrong size for type\n", nname);
|
|
EXIT(1);
|
|
}
|
|
}
|
|
else if (type == CTLTYPE_STRUCT) {
|
|
sysctlperror("%s: struct must have size\n", nname);
|
|
EXIT(1);
|
|
}
|
|
|
|
/*
|
|
* now...if no one said anything yet, we default nodes or
|
|
* any type that owns data being writeable, and everything
|
|
* else being readonly.
|
|
*/
|
|
if (rw == -1) {
|
|
if (type == CTLTYPE_NODE ||
|
|
(flags & (CTLFLAG_OWNDATA|CTLFLAG_IMMEDIATE)))
|
|
rw = CTLFLAG_READWRITE;
|
|
else
|
|
rw = CTLFLAG_READONLY;
|
|
}
|
|
|
|
/*
|
|
* if a kernel address was specified, that can't be made
|
|
* writeable by us.
|
|
if (rw != CTLFLAG_READONLY && addr) {
|
|
sysctlperror("%s: kernel data can only be readable\n", nname);
|
|
EXIT(1);
|
|
}
|
|
*/
|
|
|
|
/*
|
|
* what separator were they using in the full name of the new
|
|
* node?
|
|
*/
|
|
if ((t = strpbrk(nname, "./")) == NULL)
|
|
sep[0] = '.';
|
|
else
|
|
sep[0] = t[0];
|
|
sep[1] = '\0';
|
|
|
|
/*
|
|
* put it all together, now. t'ain't much, is it?
|
|
*/
|
|
node.sysctl_flags = SYSCTL_VERSION|flags|rw|type;
|
|
node.sysctl_size = sz;
|
|
t = strrchr(nname, sep[0]);
|
|
if (t != NULL)
|
|
strlcpy(node.sysctl_name, t + 1, sizeof(node.sysctl_name));
|
|
else
|
|
strlcpy(node.sysctl_name, nname, sizeof(node.sysctl_name));
|
|
if (t == nname)
|
|
t = NULL;
|
|
|
|
/*
|
|
* if this is a new top-level node, then we don't need to find
|
|
* the mib for its parent
|
|
*/
|
|
if (t == NULL) {
|
|
namelen = 0;
|
|
gsname[0] = '\0';
|
|
}
|
|
|
|
/*
|
|
* on the other hand, if it's not a top-level node...
|
|
*/
|
|
else {
|
|
namelen = sizeof(name) / sizeof(name[0]);
|
|
sz = sizeof(gsname);
|
|
*t = '\0';
|
|
rc = sysctlgetmibinfo(nname, &name[0], &namelen,
|
|
gsname, &sz, NULL, SYSCTL_VERSION);
|
|
*t = sep[0];
|
|
if (rc == -1) {
|
|
sysctlparseerror(namelen, nname);
|
|
EXIT(1);
|
|
}
|
|
}
|
|
|
|
/*
|
|
* yes, a new node is being created
|
|
*/
|
|
if (method != 0)
|
|
name[namelen++] = method;
|
|
else
|
|
name[namelen++] = CTL_CREATE;
|
|
|
|
sz = sizeof(node);
|
|
rc = sysctl(&name[0], namelen, &node, &sz, &node, sizeof(node));
|
|
|
|
if (rc == -1) {
|
|
sysctlperror("%s: CTL_CREATE failed: %s\n",
|
|
nname, strerror(errno));
|
|
EXIT(1);
|
|
}
|
|
else if (!qflag && !nflag)
|
|
printf("%s(%s): (created)\n", nname, st(type));
|
|
}
|
|
|
|
static void
|
|
parse_destroy(char *l)
|
|
{
|
|
struct sysctlnode node;
|
|
size_t sz;
|
|
int name[CTL_MAXNAME], rc;
|
|
u_int namelen;
|
|
|
|
if (!wflag) {
|
|
sysctlperror("Must specify -w to destroy nodes\n");
|
|
exit(1);
|
|
}
|
|
|
|
memset(name, 0, sizeof(name));
|
|
namelen = sizeof(name) / sizeof(name[0]);
|
|
sz = sizeof(gsname);
|
|
rc = sysctlgetmibinfo(l, &name[0], &namelen, gsname, &sz, NULL,
|
|
SYSCTL_VERSION);
|
|
if (rc == -1) {
|
|
sysctlparseerror(namelen, l);
|
|
EXIT(1);
|
|
}
|
|
|
|
memset(&node, 0, sizeof(node));
|
|
node.sysctl_flags = SYSCTL_VERSION;
|
|
node.sysctl_num = name[namelen - 1];
|
|
name[namelen - 1] = CTL_DESTROY;
|
|
|
|
sz = sizeof(node);
|
|
rc = sysctl(&name[0], namelen, &node, &sz, &node, sizeof(node));
|
|
|
|
if (rc == -1) {
|
|
sysctlperror("%s: CTL_DESTROY failed: %s\n",
|
|
l, strerror(errno));
|
|
EXIT(1);
|
|
}
|
|
else if (!qflag && !nflag)
|
|
printf("%s(%s): (destroyed)\n", gsname,
|
|
st(SYSCTL_TYPE(node.sysctl_flags)));
|
|
}
|
|
|
|
static void
|
|
parse_describe(char *l)
|
|
{
|
|
struct sysctlnode newdesc;
|
|
char buf[1024], *value;
|
|
struct sysctldesc *d = (void*)&buf[0];
|
|
int name[CTL_MAXNAME], rc;
|
|
u_int namelen;
|
|
size_t sz;
|
|
|
|
if (!wflag) {
|
|
sysctlperror("Must specify -w to set descriptions\n");
|
|
exit(1);
|
|
}
|
|
|
|
value = strchr(l, '=');
|
|
*value++ = '\0';
|
|
|
|
memset(name, 0, sizeof(name));
|
|
namelen = sizeof(name) / sizeof(name[0]);
|
|
sz = sizeof(gsname);
|
|
rc = sysctlgetmibinfo(l, &name[0], &namelen, gsname, &sz, NULL,
|
|
SYSCTL_VERSION);
|
|
if (rc == -1) {
|
|
sysctlparseerror(namelen, l);
|
|
EXIT(1);
|
|
}
|
|
|
|
sz = sizeof(buf);
|
|
memset(&newdesc, 0, sizeof(newdesc));
|
|
newdesc.sysctl_flags = SYSCTL_VERSION|CTLFLAG_OWNDESC;
|
|
newdesc.sysctl_num = name[namelen - 1];
|
|
newdesc.sysctl_desc = value;
|
|
name[namelen - 1] = CTL_DESCRIBE;
|
|
rc = sysctl(name, namelen, d, &sz, &newdesc, sizeof(newdesc));
|
|
if (rc == -1)
|
|
sysctlperror("%s: CTL_DESCRIBE failed: %s\n",
|
|
gsname, strerror(errno));
|
|
else if (d->descr_len == 1)
|
|
sysctlperror("%s: description not set\n", gsname);
|
|
else if (!qflag && !nflag)
|
|
printf("%s: %s\n", gsname, d->descr_str);
|
|
}
|
|
|
|
/*
|
|
* ********************************************************************
|
|
* when things go wrong...
|
|
* ********************************************************************
|
|
*/
|
|
static void
|
|
usage(void)
|
|
{
|
|
const char *progname = getprogname();
|
|
|
|
(void)fprintf(stderr,
|
|
"usage:\t%s %s\n"
|
|
"\t%s %s\n"
|
|
"\t%s %s\n"
|
|
"\t%s %s\n"
|
|
"\t%s %s\n"
|
|
"\t%s %s\n",
|
|
progname, "[-dne] [-x[x]|-r] variable ...",
|
|
progname, "[-ne] [-q] -w variable=value ...",
|
|
progname, "[-dne] -a",
|
|
progname, "[-dne] -A",
|
|
progname, "[-ne] -M",
|
|
progname, "[-dne] [-q] -f file");
|
|
exit(1);
|
|
}
|
|
|
|
static void
|
|
getdesc1(int *name, u_int namelen, struct sysctlnode *pnode)
|
|
{
|
|
struct sysctlnode node;
|
|
char buf[1024], *desc;
|
|
struct sysctldesc *d = (void*)buf;
|
|
size_t sz = sizeof(buf);
|
|
int rc;
|
|
|
|
memset(&node, 0, sizeof(node));
|
|
node.sysctl_flags = SYSCTL_VERSION;
|
|
node.sysctl_num = name[namelen - 1];
|
|
name[namelen - 1] = CTL_DESCRIBE;
|
|
rc = sysctl(name, namelen, d, &sz, &node, sizeof(node));
|
|
|
|
if (rc == -1 ||
|
|
d->descr_len == 1 ||
|
|
d->descr_num != pnode->sysctl_num ||
|
|
d->descr_ver != pnode->sysctl_ver)
|
|
desc = (char *)-1;
|
|
else
|
|
desc = malloc(d->descr_len);
|
|
|
|
if (desc == NULL)
|
|
desc = (char *)-1;
|
|
if (desc != (char *)-1)
|
|
memcpy(desc, &d->descr_str[0], d->descr_len);
|
|
name[namelen - 1] = node.sysctl_num;
|
|
if (pnode->sysctl_desc != NULL &&
|
|
pnode->sysctl_desc != (const char *)-1)
|
|
/* LINTED mallocated it, must free it */
|
|
free((void*)pnode->sysctl_desc);
|
|
pnode->sysctl_desc = desc;
|
|
}
|
|
|
|
static void
|
|
getdesc(int *name, u_int namelen, struct sysctlnode *pnode)
|
|
{
|
|
struct sysctlnode *node = pnode->sysctl_child;
|
|
struct sysctldesc *d, *p, *plim;
|
|
char *desc;
|
|
size_t sz;
|
|
int rc, i;
|
|
|
|
sz = 128 * pnode->sysctl_clen;
|
|
name[namelen] = CTL_DESCRIBE;
|
|
|
|
/*
|
|
* attempt *twice* to get the description chunk. if two tries
|
|
* doesn't work, give up.
|
|
*/
|
|
i = 0;
|
|
do {
|
|
d = malloc(sz);
|
|
if (d == NULL)
|
|
return;
|
|
rc = sysctl(name, namelen + 1, d, &sz, NULL, 0);
|
|
if (rc == -1) {
|
|
free(d);
|
|
d = NULL;
|
|
if (i == 0 && errno == ENOMEM)
|
|
i = 1;
|
|
else
|
|
return;
|
|
}
|
|
} while (d == NULL);
|
|
|
|
/*
|
|
* hokey nested loop here, giving O(n**2) behavior, but should
|
|
* suffice for now
|
|
*/
|
|
plim = /*LINTED ptr cast*/(struct sysctldesc *)((char*)d + sz);
|
|
for (i = 0; i < pnode->sysctl_clen; i++) {
|
|
node = &pnode->sysctl_child[i];
|
|
for (p = d; p < plim; p = NEXT_DESCR(p))
|
|
if (node->sysctl_num == p->descr_num)
|
|
break;
|
|
if (p < plim && node[i].sysctl_ver == p->descr_ver) {
|
|
/*
|
|
* match found, attempt to attach description
|
|
*/
|
|
if (p->descr_len == 1)
|
|
desc = NULL;
|
|
else
|
|
desc = malloc(p->descr_len);
|
|
if (desc == NULL)
|
|
desc = (char *)-1;
|
|
else
|
|
memcpy(desc, &p->descr_str[0], p->descr_len);
|
|
node->sysctl_desc = desc;
|
|
}
|
|
}
|
|
|
|
free(d);
|
|
}
|
|
|
|
static void
|
|
trim_whitespace(char *s, int dir)
|
|
{
|
|
char *i, *o;
|
|
|
|
i = o = s;
|
|
if (dir & 1)
|
|
while (isspace((unsigned char)*i))
|
|
i++;
|
|
while ((*o++ = *i++) != '\0');
|
|
o -= 2; /* already past nul, skip back to before it */
|
|
if (dir & 2)
|
|
while (o > s && isspace((unsigned char)*o))
|
|
*o-- = '\0';
|
|
}
|
|
|
|
void
|
|
sysctlerror(int soft)
|
|
{
|
|
if (soft) {
|
|
switch (errno) {
|
|
case ENOENT:
|
|
case ENOPROTOOPT:
|
|
case ENOTDIR:
|
|
case EOPNOTSUPP:
|
|
case EPROTONOSUPPORT:
|
|
if (Aflag || req)
|
|
sysctlperror("%s: the value is not available\n",
|
|
gsname);
|
|
return;
|
|
}
|
|
}
|
|
|
|
sysctlperror("%s: sysctl() failed with %s\n",
|
|
gsname, strerror(errno));
|
|
if (!soft)
|
|
EXIT(1);
|
|
}
|
|
|
|
void
|
|
sysctlparseerror(u_int namelen, const char *pname)
|
|
{
|
|
|
|
sysctlperror("%s level name '%s' in '%s' is invalid\n",
|
|
lname[namelen], gsname, pname);
|
|
}
|
|
|
|
static void
|
|
sysctlperror(const char *fmt, ...)
|
|
{
|
|
va_list ap;
|
|
|
|
(void)fprintf(warnfp, "%s: ", getprogname());
|
|
if (fn)
|
|
(void)fprintf(warnfp, "%s#%zu: ", fn, nr);
|
|
va_start(ap, fmt);
|
|
(void)vfprintf(warnfp, fmt, ap);
|
|
va_end(ap);
|
|
}
|
|
|
|
|
|
/*
|
|
* ********************************************************************
|
|
* how to write to a "simple" node
|
|
* ********************************************************************
|
|
*/
|
|
static void
|
|
write_number(int *name, u_int namelen, struct sysctlnode *node, char *value)
|
|
{
|
|
int ii, io;
|
|
u_quad_t qi, qo;
|
|
size_t si, so;
|
|
int rc;
|
|
void *i, *o;
|
|
char *t;
|
|
|
|
if (fn)
|
|
trim_whitespace(value, 3);
|
|
|
|
si = so = 0;
|
|
i = o = NULL;
|
|
errno = 0;
|
|
qi = strtouq(value, &t, 0);
|
|
if (errno != 0) {
|
|
sysctlperror("%s: value too large\n", value);
|
|
EXIT(1);
|
|
}
|
|
if (t == value || *t != '\0') {
|
|
sysctlperror("%s: not a number\n", value);
|
|
EXIT(1);
|
|
}
|
|
|
|
switch (SYSCTL_TYPE(node->sysctl_flags)) {
|
|
case CTLTYPE_INT:
|
|
ii = (int)qi;
|
|
qo = ii;
|
|
if (qo != qi) {
|
|
sysctlperror("%s: value too large\n", value);
|
|
EXIT(1);
|
|
}
|
|
o = &io;
|
|
so = sizeof(io);
|
|
i = ⅈ
|
|
si = sizeof(ii);
|
|
break;
|
|
case CTLTYPE_QUAD:
|
|
o = &qo;
|
|
so = sizeof(qo);
|
|
i = &qi;
|
|
si = sizeof(qi);
|
|
break;
|
|
}
|
|
|
|
rc = sysctl(name, namelen, o, &so, i, si);
|
|
if (rc == -1) {
|
|
sysctlerror(0);
|
|
return;
|
|
}
|
|
|
|
switch (SYSCTL_TYPE(node->sysctl_flags)) {
|
|
case CTLTYPE_INT:
|
|
display_number(node, gsname, &io, sizeof(io), DISPLAY_OLD);
|
|
display_number(node, gsname, &ii, sizeof(ii), DISPLAY_NEW);
|
|
break;
|
|
case CTLTYPE_QUAD:
|
|
display_number(node, gsname, &qo, sizeof(qo), DISPLAY_OLD);
|
|
display_number(node, gsname, &qi, sizeof(qi), DISPLAY_NEW);
|
|
break;
|
|
}
|
|
}
|
|
|
|
static void
|
|
write_string(int *name, u_int namelen, struct sysctlnode *node, char *value)
|
|
{
|
|
char *i, *o;
|
|
size_t si, so;
|
|
int rc;
|
|
|
|
i = value;
|
|
si = strlen(i) + 1;
|
|
so = node->sysctl_size;
|
|
if (si > so && so != 0) {
|
|
sysctlperror("%s: string too long\n", value);
|
|
EXIT(1);
|
|
}
|
|
o = malloc(so);
|
|
if (o == NULL) {
|
|
sysctlperror("%s: !malloc failed!\n", gsname);
|
|
exit(1);
|
|
}
|
|
|
|
rc = sysctl(name, namelen, o, &so, i, si);
|
|
if (rc == -1) {
|
|
sysctlerror(0);
|
|
return;
|
|
}
|
|
|
|
display_string(node, gsname, o, so, DISPLAY_OLD);
|
|
display_string(node, gsname, i, si, DISPLAY_NEW);
|
|
free(o);
|
|
}
|
|
|
|
/*
|
|
* ********************************************************************
|
|
* simple ways to print stuff consistently
|
|
* ********************************************************************
|
|
*/
|
|
static void
|
|
display_number(const struct sysctlnode *node, const char *name,
|
|
const void *data, size_t sz, int n)
|
|
{
|
|
u_quad_t q;
|
|
int i;
|
|
|
|
if (qflag)
|
|
return;
|
|
if ((nflag || rflag) && (n == DISPLAY_OLD))
|
|
return;
|
|
|
|
if (rflag && n != DISPLAY_OLD) {
|
|
fwrite(data, sz, 1, stdout);
|
|
return;
|
|
}
|
|
|
|
if (!nflag) {
|
|
if (n == DISPLAY_VALUE)
|
|
printf("%s%s", name, eq);
|
|
else if (n == DISPLAY_OLD)
|
|
printf("%s: ", name);
|
|
}
|
|
|
|
if (xflag > 1) {
|
|
if (n != DISPLAY_NEW)
|
|
printf("\n");
|
|
hex_dump(data, sz);
|
|
return;
|
|
}
|
|
|
|
switch (SYSCTL_TYPE(node->sysctl_flags)) {
|
|
case CTLTYPE_INT:
|
|
memcpy(&i, data, sz);
|
|
if (xflag)
|
|
printf("0x%0*x", (int)sz * 2, i);
|
|
else if (node->sysctl_flags & CTLFLAG_HEX)
|
|
printf("%#x", i);
|
|
else
|
|
printf("%d", i);
|
|
break;
|
|
case CTLTYPE_QUAD:
|
|
memcpy(&q, data, sz);
|
|
if (xflag)
|
|
printf("0x%0*" PRIx64, (int)sz * 2, q);
|
|
else if (node->sysctl_flags & CTLFLAG_HEX)
|
|
printf("%#" PRIx64, q);
|
|
else
|
|
printf("%" PRIu64, q);
|
|
break;
|
|
}
|
|
|
|
if (n == DISPLAY_OLD)
|
|
printf(" -> ");
|
|
else
|
|
printf("\n");
|
|
}
|
|
|
|
static void
|
|
display_string(const struct sysctlnode *node, const char *name,
|
|
const void *data, size_t sz, int n)
|
|
{
|
|
const unsigned char *buf = data;
|
|
int ni;
|
|
|
|
if (qflag)
|
|
return;
|
|
if ((nflag || rflag) && (n == DISPLAY_OLD))
|
|
return;
|
|
|
|
if (rflag && n != DISPLAY_OLD) {
|
|
fwrite(data, sz, 1, stdout);
|
|
return;
|
|
}
|
|
|
|
if (!nflag) {
|
|
if (n == DISPLAY_VALUE)
|
|
printf("%s%s", name, eq);
|
|
else if (n == DISPLAY_OLD)
|
|
printf("%s: ", name);
|
|
}
|
|
|
|
if (xflag > 1) {
|
|
if (n != DISPLAY_NEW)
|
|
printf("\n");
|
|
hex_dump(data, sz);
|
|
return;
|
|
}
|
|
|
|
if (xflag || node->sysctl_flags & CTLFLAG_HEX) {
|
|
for (ni = 0; ni < (int)sz; ni++) {
|
|
if (xflag)
|
|
printf("%02x", buf[ni]);
|
|
if (buf[ni] == '\0')
|
|
break;
|
|
if (!xflag)
|
|
printf("\\x%2.2x", buf[ni]);
|
|
}
|
|
}
|
|
else
|
|
printf("%.*s", (int)sz, buf);
|
|
|
|
if (n == DISPLAY_OLD)
|
|
printf(" -> ");
|
|
else
|
|
printf("\n");
|
|
}
|
|
|
|
/*ARGSUSED*/
|
|
static void
|
|
display_struct(const struct sysctlnode *node, const char *name,
|
|
const void *data, size_t sz, int n)
|
|
{
|
|
const unsigned char *buf = data;
|
|
int ni;
|
|
size_t more;
|
|
|
|
if (qflag)
|
|
return;
|
|
if (!(xflag || rflag)) {
|
|
if (Aflag || req)
|
|
sysctlperror(
|
|
"%s: this type is unknown to this program\n",
|
|
gsname);
|
|
return;
|
|
}
|
|
if ((nflag || rflag) && (n == DISPLAY_OLD))
|
|
return;
|
|
|
|
if (rflag && n != DISPLAY_OLD) {
|
|
fwrite(data, sz, 1, stdout);
|
|
return;
|
|
}
|
|
|
|
if (!nflag) {
|
|
if (n == DISPLAY_VALUE)
|
|
printf("%s%s", name, eq);
|
|
else if (n == DISPLAY_OLD)
|
|
printf("%s: ", name);
|
|
}
|
|
|
|
if (xflag > 1) {
|
|
if (n != DISPLAY_NEW)
|
|
printf("\n");
|
|
hex_dump(data, sz);
|
|
return;
|
|
}
|
|
|
|
if (sz > 16) {
|
|
more = sz - 16;
|
|
sz = 16;
|
|
}
|
|
else
|
|
more = 0;
|
|
for (ni = 0; ni < (int)sz; ni++)
|
|
printf("%02x", buf[ni]);
|
|
if (more)
|
|
printf("...(%zu more bytes)", more);
|
|
printf("\n");
|
|
}
|
|
|
|
static void
|
|
hex_dump(const unsigned char *buf, size_t len)
|
|
{
|
|
int i, j;
|
|
char line[80], tmp[12];
|
|
|
|
memset(line, ' ', sizeof(line));
|
|
for (i = 0, j = 15; i < len; i++) {
|
|
j = i % 16;
|
|
/* reset line */
|
|
if (j == 0) {
|
|
line[58] = '|';
|
|
line[77] = '|';
|
|
line[78] = 0;
|
|
snprintf(tmp, sizeof(tmp), "%07d", i);
|
|
memcpy(&line[0], tmp, 7);
|
|
}
|
|
/* copy out hex version of byte */
|
|
snprintf(tmp, sizeof(tmp), "%02x", buf[i]);
|
|
memcpy(&line[9 + j * 3], tmp, 2);
|
|
/* copy out plain version of byte */
|
|
line[60 + j] = (isprint(buf[i])) ? buf[i] : '.';
|
|
/* print a full line and erase it */
|
|
if (j == 15) {
|
|
printf("%s\n", line);
|
|
memset(line, ' ', sizeof(line));
|
|
}
|
|
}
|
|
if (line[0] != ' ')
|
|
printf("%s\n", line);
|
|
printf("%07zu bytes\n", len);
|
|
}
|
|
|
|
/*
|
|
* ********************************************************************
|
|
* functions that handle particular nodes
|
|
* ********************************************************************
|
|
*/
|
|
/*ARGSUSED*/
|
|
static void
|
|
printother(HANDLER_ARGS)
|
|
{
|
|
int rc;
|
|
void *p;
|
|
size_t sz1, sz2;
|
|
|
|
if (!(Aflag || req) || Mflag)
|
|
return;
|
|
|
|
/*
|
|
* okay...you asked for it, so let's give it a go
|
|
*/
|
|
while (type != CTLTYPE_NODE && (xflag || rflag)) {
|
|
rc = sysctl(name, namelen, NULL, &sz1, NULL, 0);
|
|
if (rc == -1 || sz1 == 0)
|
|
break;
|
|
p = malloc(sz1);
|
|
if (p == NULL)
|
|
break;
|
|
sz2 = sz1;
|
|
rc = sysctl(name, namelen, p, &sz2, NULL, 0);
|
|
if (rc == -1 || sz1 != sz2) {
|
|
free(p);
|
|
break;
|
|
}
|
|
display_struct(pnode, gsname, p, sz1, DISPLAY_VALUE);
|
|
free(p);
|
|
return;
|
|
}
|
|
|
|
/*
|
|
* that didn't work...do we have a specific message for this
|
|
* thing?
|
|
*/
|
|
if (v != NULL) {
|
|
sysctlperror("%s: use '%s' to view this information\n",
|
|
gsname, (const char *)v);
|
|
return;
|
|
}
|
|
|
|
/*
|
|
* hmm...i wonder if we have any generic hints?
|
|
*/
|
|
switch (name[0]) {
|
|
case CTL_NET:
|
|
sysctlperror("%s: use 'netstat' to view this information\n",
|
|
sname);
|
|
break;
|
|
case CTL_DEBUG:
|
|
sysctlperror("%s: missing 'options DEBUG' from kernel?\n",
|
|
sname);
|
|
break;
|
|
case CTL_DDB:
|
|
sysctlperror("%s: missing 'options DDB' from kernel?\n",
|
|
sname);
|
|
break;
|
|
}
|
|
}
|
|
|
|
/*ARGSUSED*/
|
|
static void
|
|
kern_clockrate(HANDLER_ARGS)
|
|
{
|
|
struct clockinfo clkinfo;
|
|
size_t sz;
|
|
int rc;
|
|
|
|
sz = sizeof(clkinfo);
|
|
rc = sysctl(name, namelen, &clkinfo, &sz, NULL, 0);
|
|
if (rc == -1) {
|
|
sysctlerror(1);
|
|
return;
|
|
}
|
|
if (sz != sizeof(clkinfo))
|
|
errx(1, "%s: !returned size wrong!", sname);
|
|
|
|
if (xflag || rflag) {
|
|
display_struct(pnode, sname, &clkinfo, sz,
|
|
DISPLAY_VALUE);
|
|
return;
|
|
}
|
|
else if (!nflag)
|
|
printf("%s: ", sname);
|
|
printf("tick = %d, tickadj = %d, hz = %d, profhz = %d, stathz = %d\n",
|
|
clkinfo.tick, clkinfo.tickadj,
|
|
clkinfo.hz, clkinfo.profhz, clkinfo.stathz);
|
|
}
|
|
|
|
/*ARGSUSED*/
|
|
static void
|
|
kern_boottime(HANDLER_ARGS)
|
|
{
|
|
struct timeval timeval;
|
|
time_t boottime;
|
|
size_t sz;
|
|
int rc;
|
|
|
|
sz = sizeof(timeval);
|
|
rc = sysctl(name, namelen, &timeval, &sz, NULL, 0);
|
|
if (rc == -1) {
|
|
sysctlerror(1);
|
|
return;
|
|
}
|
|
if (sz != sizeof(timeval))
|
|
errx(1, "%s: !returned size wrong!", sname);
|
|
|
|
boottime = timeval.tv_sec;
|
|
if (xflag || rflag)
|
|
display_struct(pnode, sname, &timeval, sz,
|
|
DISPLAY_VALUE);
|
|
else if (!nflag)
|
|
/* ctime() provides the \n */
|
|
printf("%s%s%s", sname, eq, ctime(&boottime));
|
|
else if (nflag == 1)
|
|
printf("%ld\n", (long)boottime);
|
|
else
|
|
printf("%ld.%06ld\n", (long)timeval.tv_sec,
|
|
(long)timeval.tv_usec);
|
|
}
|
|
|
|
/*ARGSUSED*/
|
|
static void
|
|
kern_consdev(HANDLER_ARGS)
|
|
{
|
|
dev_t cons;
|
|
size_t sz;
|
|
int rc;
|
|
|
|
sz = sizeof(cons);
|
|
rc = sysctl(name, namelen, &cons, &sz, NULL, 0);
|
|
if (rc == -1) {
|
|
sysctlerror(1);
|
|
return;
|
|
}
|
|
if (sz != sizeof(cons))
|
|
errx(1, "%s: !returned size wrong!", sname);
|
|
|
|
if (xflag || rflag)
|
|
display_struct(pnode, sname, &cons, sz,
|
|
DISPLAY_VALUE);
|
|
else if (!nflag)
|
|
printf("%s%s%s\n", sname, eq, devname(cons, S_IFCHR));
|
|
else
|
|
printf("0x%x\n", cons);
|
|
}
|
|
|
|
/*ARGSUSED*/
|
|
static void
|
|
kern_cp_time(HANDLER_ARGS)
|
|
{
|
|
u_int64_t *cp_time;
|
|
size_t sz, osz;
|
|
int rc, i, n;
|
|
char s[sizeof("kern.cp_time.nnnnnn")];
|
|
const char *tname;
|
|
|
|
/*
|
|
* three things to do here.
|
|
* case 1: get sum (no Aflag and namelen == 2)
|
|
* case 2: get specific processor (namelen == 3)
|
|
* case 3: get all processors (Aflag and namelen == 2)
|
|
*/
|
|
|
|
if (namelen == 2 && Aflag) {
|
|
sz = sizeof(n);
|
|
rc = sysctlbyname("hw.ncpu", &n, &sz, NULL, 0);
|
|
if (rc != 0)
|
|
return; /* XXX print an error, eh? */
|
|
n++; /* Add on space for the sum. */
|
|
sz = n * sizeof(u_int64_t) * CPUSTATES;
|
|
}
|
|
else {
|
|
n = -1; /* Just print one data set. */
|
|
sz = sizeof(u_int64_t) * CPUSTATES;
|
|
}
|
|
|
|
cp_time = malloc(sz);
|
|
if (cp_time == NULL) {
|
|
sysctlerror(1);
|
|
return;
|
|
}
|
|
|
|
osz = sz;
|
|
rc = sysctl(name, namelen, cp_time + (n != -1) * CPUSTATES, &osz,
|
|
NULL, 0);
|
|
|
|
if (rc == -1) {
|
|
sysctlerror(1);
|
|
free(cp_time);
|
|
return;
|
|
}
|
|
|
|
/*
|
|
* Check, but account for space we'll occupy with the sum.
|
|
*/
|
|
if (osz != sz - (n != -1) * CPUSTATES * sizeof(u_int64_t))
|
|
errx(1, "%s: !returned size wrong!", sname);
|
|
|
|
/*
|
|
* Compute the actual sum. Two calls would be easier (we
|
|
* could just call ourselves recursively above), but the
|
|
* numbers wouldn't add up.
|
|
*/
|
|
if (n != -1) {
|
|
memset(cp_time, 0, sizeof(u_int64_t) * CPUSTATES);
|
|
for (i = 1; i < n; i++) {
|
|
cp_time[CP_USER] += cp_time[i * CPUSTATES + CP_USER];
|
|
cp_time[CP_NICE] += cp_time[i * CPUSTATES + CP_NICE];
|
|
cp_time[CP_SYS] += cp_time[i * CPUSTATES + CP_SYS];
|
|
cp_time[CP_INTR] += cp_time[i * CPUSTATES + CP_INTR];
|
|
cp_time[CP_IDLE] += cp_time[i * CPUSTATES + CP_IDLE];
|
|
}
|
|
}
|
|
|
|
tname = sname;
|
|
for (i = 0; n == -1 || i < n; i++) {
|
|
if (i > 0) {
|
|
(void)snprintf(s, sizeof(s), "%s%s%d", sname, sep,
|
|
i - 1);
|
|
tname = s;
|
|
}
|
|
if (xflag || rflag)
|
|
display_struct(pnode, tname, cp_time + (i * CPUSTATES),
|
|
sizeof(u_int64_t) * CPUSTATES,
|
|
DISPLAY_VALUE);
|
|
else {
|
|
if (!nflag)
|
|
printf("%s: ", tname);
|
|
printf("user = %" PRIu64
|
|
", nice = %" PRIu64
|
|
", sys = %" PRIu64
|
|
", intr = %" PRIu64
|
|
", idle = %" PRIu64
|
|
"\n",
|
|
cp_time[i * CPUSTATES + CP_USER],
|
|
cp_time[i * CPUSTATES + CP_NICE],
|
|
cp_time[i * CPUSTATES + CP_SYS],
|
|
cp_time[i * CPUSTATES + CP_INTR],
|
|
cp_time[i * CPUSTATES + CP_IDLE]);
|
|
}
|
|
/*
|
|
* Just printing the one node.
|
|
*/
|
|
if (n == -1)
|
|
break;
|
|
}
|
|
|
|
free(cp_time);
|
|
}
|
|
|
|
/*ARGSUSED*/
|
|
static void
|
|
vm_loadavg(HANDLER_ARGS)
|
|
{
|
|
struct loadavg loadavg;
|
|
size_t sz;
|
|
int rc;
|
|
|
|
sz = sizeof(loadavg);
|
|
rc = sysctl(name, namelen, &loadavg, &sz, NULL, 0);
|
|
if (rc == -1) {
|
|
sysctlerror(1);
|
|
return;
|
|
}
|
|
if (sz != sizeof(loadavg))
|
|
errx(1, "%s: !returned size wrong!", sname);
|
|
|
|
if (xflag || rflag) {
|
|
display_struct(pnode, sname, &loadavg, sz,
|
|
DISPLAY_VALUE);
|
|
return;
|
|
}
|
|
if (!nflag)
|
|
printf("%s: ", sname);
|
|
printf("%.2f %.2f %.2f\n",
|
|
(double) loadavg.ldavg[0] / loadavg.fscale,
|
|
(double) loadavg.ldavg[1] / loadavg.fscale,
|
|
(double) loadavg.ldavg[2] / loadavg.fscale);
|
|
}
|
|
|
|
/*ARGSUSED*/
|
|
static void
|
|
proc_limit(HANDLER_ARGS)
|
|
{
|
|
u_quad_t olim, *newp, nlim;
|
|
size_t osz, nsz;
|
|
char *t;
|
|
int rc;
|
|
|
|
if (fn)
|
|
trim_whitespace(value, 3);
|
|
|
|
osz = sizeof(olim);
|
|
if (value != NULL) {
|
|
nsz = sizeof(nlim);
|
|
newp = &nlim;
|
|
if (strcmp(value, "unlimited") == 0)
|
|
nlim = RLIM_INFINITY;
|
|
else {
|
|
errno = 0;
|
|
nlim = strtouq(value, &t, 0);
|
|
if (t == value || *t != '\0' || errno != 0) {
|
|
sysctlperror("%s: '%s' is not a valid limit\n",
|
|
sname, value);
|
|
EXIT(1);
|
|
}
|
|
}
|
|
}
|
|
else {
|
|
nsz = 0;
|
|
newp = NULL;
|
|
}
|
|
|
|
rc = sysctl(name, namelen, &olim, &osz, newp, nsz);
|
|
if (rc == -1) {
|
|
sysctlerror(newp == NULL);
|
|
return;
|
|
}
|
|
|
|
if (newp && qflag)
|
|
return;
|
|
|
|
if (rflag || xflag || olim != RLIM_INFINITY)
|
|
display_number(pnode, sname, &olim, sizeof(olim),
|
|
newp ? DISPLAY_OLD : DISPLAY_VALUE);
|
|
else
|
|
display_string(pnode, sname, "unlimited", 10,
|
|
newp ? DISPLAY_OLD : DISPLAY_VALUE);
|
|
|
|
if (newp) {
|
|
if (rflag || xflag || nlim != RLIM_INFINITY)
|
|
display_number(pnode, sname, &nlim, sizeof(nlim),
|
|
DISPLAY_NEW);
|
|
else
|
|
display_string(pnode, sname, "unlimited", 10,
|
|
DISPLAY_NEW);
|
|
}
|
|
}
|
|
|
|
#ifdef CPU_DISKINFO
|
|
/*ARGSUSED*/
|
|
static void
|
|
machdep_diskinfo(HANDLER_ARGS)
|
|
{
|
|
struct disklist *dl;
|
|
struct biosdisk_info *bi;
|
|
struct nativedisk_info *ni;
|
|
int rc;
|
|
size_t sz;
|
|
uint i, b, lim;
|
|
|
|
rc = sysctl(name, namelen, NULL, &sz, NULL, 0);
|
|
if (rc == -1) {
|
|
sysctlerror(1);
|
|
return;
|
|
}
|
|
dl = malloc(sz);
|
|
if (dl == NULL) {
|
|
sysctlerror(1);
|
|
return;
|
|
}
|
|
rc = sysctl(name, namelen, dl, &sz, NULL, 0);
|
|
if (rc == -1) {
|
|
sysctlerror(1);
|
|
return;
|
|
}
|
|
|
|
if (!nflag)
|
|
printf("%s: ", sname);
|
|
lim = dl->dl_nbiosdisks;
|
|
if (lim > MAX_BIOSDISKS)
|
|
lim = MAX_BIOSDISKS;
|
|
for (bi = dl->dl_biosdisks, i = 0; i < lim; bi++, i++)
|
|
printf("%x:%" PRIu64 "(%d/%d/%d),%x ",
|
|
bi->bi_dev, bi->bi_lbasecs,
|
|
bi->bi_cyl, bi->bi_head, bi->bi_sec,
|
|
bi->bi_flags);
|
|
lim = dl->dl_nnativedisks;
|
|
ni = dl->dl_nativedisks;
|
|
bi = dl->dl_biosdisks;
|
|
/* LINTED -- pointer casts are tedious */
|
|
if ((char *)&ni[lim] != (char *)dl + sz) {
|
|
sysctlperror("%s: size mismatch\n", gsname);
|
|
return;
|
|
}
|
|
for (i = 0; i < lim; ni++, i++) {
|
|
char t = ':';
|
|
printf(" %.*s", (int)sizeof ni->ni_devname,
|
|
ni->ni_devname);
|
|
for (b = 0; b < ni->ni_nmatches; t = ',', b++)
|
|
printf("%c%x", t,
|
|
bi[ni->ni_biosmatches[b]].bi_dev);
|
|
}
|
|
printf("\n");
|
|
}
|
|
#endif /* CPU_DISKINFO */
|