Home | History | Annotate | Line # | Download | only in netstat
main.c revision 1.81
      1 /*	$NetBSD: main.c,v 1.81 2011/09/16 15:39:27 joerg Exp $	*/
      2 
      3 /*
      4  * Copyright (c) 1983, 1988, 1993
      5  *	Regents of the University of California.  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. Neither the name of the University nor the names of its contributors
     16  *    may be used to endorse or promote products derived from this software
     17  *    without specific prior written permission.
     18  *
     19  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     20  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     21  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     22  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     23  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     24  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     25  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     26  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     27  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     28  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     29  * SUCH DAMAGE.
     30  */
     31 
     32 #include <sys/cdefs.h>
     33 #ifndef lint
     34 __COPYRIGHT("@(#) Copyright (c) 1983, 1988, 1993\
     35  Regents of the University of California.  All rights reserved.");
     36 #endif /* not lint */
     37 
     38 #ifndef lint
     39 #if 0
     40 static char sccsid[] = "from: @(#)main.c	8.4 (Berkeley) 3/1/94";
     41 #else
     42 __RCSID("$NetBSD: main.c,v 1.81 2011/09/16 15:39:27 joerg Exp $");
     43 #endif
     44 #endif /* not lint */
     45 
     46 #include <sys/param.h>
     47 #include <sys/file.h>
     48 #include <sys/protosw.h>
     49 #include <sys/socket.h>
     50 
     51 #include <net/if.h>
     52 #include <netinet/in.h>
     53 
     54 #include <ctype.h>
     55 #include <err.h>
     56 #include <errno.h>
     57 #include <kvm.h>
     58 #include <limits.h>
     59 #include <netdb.h>
     60 #include <nlist.h>
     61 #include <paths.h>
     62 #include <stdio.h>
     63 #include <stdlib.h>
     64 #include <string.h>
     65 #include <unistd.h>
     66 #include "netstat.h"
     67 #include "prog_ops.h"
     68 
     69 struct nlist nl[] = {
     70 #define	N_MBSTAT	0
     71 	{ "_mbstat", 0, 0, 0, 0 },
     72 #define	N_IPSTAT	1
     73 	{ "_ipstat", 0, 0, 0, 0 },	/* not available via kvm */
     74 #define	N_TCBTABLE	2
     75 	{ "_tcbtable", 0, 0, 0, 0 },
     76 #define	N_TCPSTAT	3
     77 	{ "_tcpstat", 0, 0, 0, 0 },	/* not available via kvm */
     78 #define	N_UDBTABLE	4
     79 	{ "_udbtable", 0, 0, 0, 0 },
     80 #define	N_UDPSTAT	5
     81 	{ "_udpstat", 0, 0, 0, 0 },	/* not available via kvm */
     82 #define	N_IFNET		6
     83 	{ "_ifnet", 0, 0, 0, 0 },
     84 #define	N_IMP		7
     85 	{ "_imp_softc", 0, 0, 0, 0 },
     86 #define	N_ICMPSTAT	8
     87 	{ "_icmpstat", 0, 0, 0, 0 },	/* not available via kvm */
     88 #define	N_RTSTAT	9
     89 	{ "_rtstat", 0, 0, 0, 0 },
     90 #define	N_UNIXSW	10
     91 	{ "_unixsw", 0, 0, 0, 0 },
     92 #define	N_CLNPSTAT	11
     93 	{ "_clnp_stat", 0, 0, 0, 0 },
     94 #define	IN_NOTUSED	12
     95 	{ "_tp_inpcb", 0, 0, 0, 0 },
     96 #define	ISO_TP		13
     97 	{ "_tp_refinfo", 0, 0, 0, 0 },
     98 #define	N_TPSTAT	14
     99 	{ "_tp_stat", 0, 0, 0, 0 },
    100 #define	N_ESISSTAT	15
    101 	{ "_esis_stat", 0, 0, 0, 0 },
    102 #define N_NIMP		16
    103 	{ "_nimp", 0, 0, 0, 0 },
    104 #define N_RTREE		17
    105 	{ "_rt_tables", 0, 0, 0, 0 },
    106 #define N_CLTP		18
    107 	{ "_cltb", 0, 0, 0, 0 },
    108 #define N_CLTPSTAT	19
    109 	{ "_cltpstat", 0, 0, 0, 0 },
    110 #define	N_NFILE		20
    111 	{ "_nfile", 0, 0, 0, 0 },
    112 #define	N_FILE		21
    113 	{ "_file", 0, 0, 0, 0 },
    114 #define N_IGMPSTAT	22
    115 	{ "_igmpstat", 0, 0, 0, 0 },	/* not available via kvm */
    116 #define N_MRTPROTO	23
    117 	{ "_ip_mrtproto", 0, 0, 0, 0 },
    118 #define N_MRTSTAT	24
    119 	{ "_mrtstat", 0, 0, 0, 0 },
    120 #define N_MFCHASHTBL	25
    121 	{ "_mfchashtbl", 0, 0, 0, 0 },
    122 #define	N_MFCHASH	26
    123 	{ "_mfchash", 0, 0, 0, 0 },
    124 #define N_VIFTABLE	27
    125 	{ "_viftable", 0, 0, 0, 0 },
    126 #define N_MSIZE		28
    127 	{ "_msize", 0, 0, 0, 0 },
    128 #define N_MCLBYTES	29
    129 	{ "_mclbytes", 0, 0, 0, 0 },
    130 #define N_DDPSTAT	30
    131 	{ "_ddpstat", 0, 0, 0, 0 },	/* not available via kvm */
    132 #define N_DDPCB		31
    133 	{ "_ddpcb", 0, 0, 0, 0 },
    134 #define N_MBPOOL	32
    135 	{ "_mbpool", 0, 0, 0, 0 },
    136 #define N_MCLPOOL	33
    137 	{ "_mclpool", 0, 0, 0, 0 },
    138 #define N_DIVPCB	34
    139 	{ "_divcb", 0, 0, 0, 0 },
    140 #define N_DIVSTAT	35
    141 	{ "_divstat", 0, 0, 0, 0 },
    142 #define N_IP6STAT	36
    143 	{ "_ip6stat", 0, 0, 0, 0 },	/* not available via kvm */
    144 #define N_TCP6STAT	37
    145 	{ "_tcp6stat", 0, 0, 0, 0 },	/* not available via kvm */
    146 #define N_UDP6STAT	38
    147 	{ "_udp6stat", 0, 0, 0, 0 },	/* not available via kvm */
    148 #define N_ICMP6STAT	39
    149 	{ "_icmp6stat", 0, 0, 0, 0 },	/* not available via kvm */
    150 #define N_IPSECSTAT	40
    151 	{ "_ipsecstat", 0, 0, 0, 0 },	/* not available via kvm */
    152 #define N_IPSEC6STAT	41
    153 	{ "_ipsec6stat", 0, 0, 0, 0 },	/* not available via kvm */
    154 #define N_PIM6STAT	42
    155 	{ "_pim6stat", 0, 0, 0, 0 },	/* not available via kvm */
    156 #define N_MRT6PROTO	43
    157 	{ "_ip6_mrtproto", 0, 0, 0, 0 },
    158 #define N_MRT6STAT	44
    159 	{ "_mrt6stat", 0, 0, 0, 0 },
    160 #define N_MF6CTABLE	45
    161 	{ "_mf6ctable", 0, 0, 0, 0 },
    162 #define N_MIF6TABLE	46
    163 	{ "_mif6table", 0, 0, 0, 0 },
    164 #define N_PFKEYSTAT	47
    165 	{ "_pfkeystat", 0, 0, 0, 0 },	/* not available via kvm */
    166 #define N_ARPSTAT	48
    167 	{ "_arpstat", 0, 0, 0, 0 },	/* not available via kvm */
    168 #define N_RIP6STAT	49
    169 	{ "_rip6stat", 0, 0, 0, 0 },	/* not available via kvm */
    170 #define	N_ARPINTRQ	50
    171 	{ "_arpintrq", 0, 0, 0, 0 },
    172 #define	N_IPINTRQ	51
    173 	{ "_ipintrq", 0, 0, 0, 0 },
    174 #define	N_IP6INTRQ	52
    175 	{ "_ip6intrq", 0, 0, 0, 0 },
    176 #define	N_ATINTRQ1	53
    177 	{ "_atintrq1", 0, 0, 0, 0 },
    178 #define	N_ATINTRQ2	54
    179 	{ "_atintrq2", 0, 0, 0, 0 },
    180 #define	N_NSINTRQ	55
    181 	{ "_nsintrq", 0, 0, 0, 0 },
    182 #define	N_CLNLINTRQ	56
    183 	{ "_clnlintrq", 0, 0, 0, 0 },
    184 #define	N_LLCINTRQ	57
    185 	{ "_llcintrq", 0, 0, 0, 0 },
    186 #define	N_HDINTRQ	58
    187 	{ "_hdintrq", 0, 0, 0, 0 },
    188 #define	N_NATMINTRQ	59
    189 	{ "_natmintrq", 0, 0, 0, 0 },
    190 #define	N_PPPOEDISCINQ	61
    191 	{ "_ppoediscinq", 0, 0, 0, 0 },
    192 #define	N_PPPOEINQ	61
    193 	{ "_ppoeinq", 0, 0, 0, 0 },
    194 #define	N_PKINTRQ	62
    195 	{ "_pkintrq", 0, 0, 0, 0 },
    196 #define	N_HARDCLOCK_TICKS 63
    197 	{ "_hardclock_ticks", 0, 0, 0, 0 },
    198 #define N_PIMSTAT	64
    199 	{ "_pimstat", 0, 0, 0, 0 },
    200 #define N_CARPSTAT	65
    201 	{ "_carpstats", 0, 0, 0, 0 },	/* not available via kvm */
    202 #define N_PFSYNCSTAT	66
    203 	{ "_pfsyncstats", 0, 0, 0, 0},  /* not available via kvm */
    204 	{ "", 0, 0, 0, 0 },
    205 };
    206 
    207 struct protox {
    208 	u_char	pr_index;		/* index into nlist of cb head */
    209 	u_char	pr_sindex;		/* index into nlist of stat block */
    210 	u_char	pr_wanted;		/* 1 if wanted, 0 otherwise */
    211 	void	(*pr_cblocks)		/* control blocks printing routine */
    212 			__P((u_long, const char *));
    213 	void	(*pr_stats)		/* statistics printing routine */
    214 			__P((u_long, const char *));
    215 	void	(*pr_istats)
    216 			__P((const char *));	/* per/if statistics printing routine */
    217 	void	(*pr_dump)		/* PCB state dump routine */
    218 			__P((u_long));
    219 	const char *pr_name;		/* well-known name */
    220 } protox[] = {
    221 	{ N_TCBTABLE,	N_TCPSTAT,	1,	protopr,
    222 	  tcp_stats,	NULL,		tcp_dump,	"tcp" },
    223 	{ N_UDBTABLE,	N_UDPSTAT,	1,	protopr,
    224 	  udp_stats,	NULL,		0,	"udp" },
    225 	{ -1,		N_IPSTAT,	1,	0,
    226 	  ip_stats,	NULL,		0,	"ip" },
    227 	{ -1,		N_ICMPSTAT,	1,	0,
    228 	  icmp_stats,	NULL,		0,	"icmp" },
    229 	{ -1,		N_IGMPSTAT,	1,	0,
    230 	  igmp_stats,	NULL,		0,	"igmp" },
    231 	{ -1,		N_CARPSTAT,	1,	0,
    232 	  carp_stats,	NULL,		0,	"carp" },
    233 #ifdef IPSEC
    234 	{ -1,		N_IPSECSTAT,	1,	0,
    235 	  ipsec_switch,	NULL,		0,	"ipsec" },
    236 #endif
    237 	{ -1,		N_PIMSTAT,	1,	0,
    238 	  pim_stats,	NULL,		0,	"pim" },
    239 	{ -1,		N_PFSYNCSTAT,  1,  0,
    240 	  pfsync_stats,  NULL,		0,  "pfsync" },
    241 	{ -1,		-1,		0,	0,
    242 	  0,		NULL,		0,	0 }
    243 };
    244 
    245 #ifdef INET6
    246 struct protox ip6protox[] = {
    247 	{ -1,		N_IP6STAT,	1,	0,
    248 	  ip6_stats,	ip6_ifstats,	0,	"ip6" },
    249 	{ -1,		N_ICMP6STAT,	1,	0,
    250 	  icmp6_stats,	icmp6_ifstats,	0,	"icmp6" },
    251 #ifdef TCP6
    252 	{ N_TCBTABLE,	N_TCP6STAT,	1,	ip6protopr,
    253 	  tcp6_stats,	NULL,		tcp6_dump,	"tcp6" },
    254 #else
    255 	{ N_TCBTABLE,	N_TCP6STAT,	1,	ip6protopr,
    256 	  tcp_stats,	NULL,		tcp_dump,	"tcp6" },
    257 #endif
    258 	{ N_UDBTABLE,	N_UDP6STAT,	1,	ip6protopr,
    259 	  udp6_stats,	NULL,		0,	"udp6" },
    260 #ifdef IPSEC
    261 	{ -1,		N_IPSEC6STAT,	1,	0,
    262 	  ipsec_switch,	NULL,		0,	"ipsec6" },
    263 #endif
    264 	{ -1,		N_PIM6STAT,	1,	0,
    265 	  pim6_stats,	NULL,		0,	"pim6" },
    266 	{ -1,		N_RIP6STAT,	1,	0,
    267 	  rip6_stats,	NULL,		0,	"rip6" },
    268 	{ -1,		-1,		0,	0,
    269 	  0,		NULL,		0,	0 }
    270 };
    271 #endif
    272 
    273 struct protox arpprotox[] = {
    274 	{ -1,		N_ARPSTAT,	1,	0,
    275 	  arp_stats,	NULL,		0,	"arp" },
    276 	{ -1,		-1,		0,	0,
    277 	  0,		NULL,		0,	0 }
    278 };
    279 
    280 #ifdef IPSEC
    281 struct protox pfkeyprotox[] = {
    282 	{ -1,		N_PFKEYSTAT,	1,	0,
    283 	  pfkey_stats,	NULL,		0,	"pfkey" },
    284 	{ -1,		-1,		0,	0,
    285 	  0,		NULL,		0,	0 }
    286 };
    287 #endif
    288 
    289 #ifndef SMALL
    290 struct protox atalkprotox[] = {
    291 	{ N_DDPCB,	N_DDPSTAT,	1,	atalkprotopr,
    292 	  ddp_stats,	NULL,		0,	"ddp" },
    293 	{ -1,		-1,		0,	0,
    294 	  0,		NULL,		0,	NULL }
    295 };
    296 
    297 struct protox isoprotox[] = {
    298 	{ ISO_TP,	N_TPSTAT,	1,	iso_protopr,
    299 	  tp_stats,	NULL,		0,	"tp" },
    300 	{ N_CLTP,	N_CLTPSTAT,	1,	iso_protopr,
    301 	  cltp_stats,	NULL,		0,	"cltp" },
    302 	{ -1,		N_CLNPSTAT,	1,	 0,
    303 	  clnp_stats,	NULL,		0,	"clnp"},
    304 	{ -1,		N_ESISSTAT,	1,	 0,
    305 	  esis_stats,	NULL,		0,	"esis"},
    306 	{ -1,		-1,		0,	0,
    307 	  0,		NULL,		0,	0 }
    308 };
    309 #endif
    310 
    311 struct protox *protoprotox[] = { protox,
    312 #ifdef INET6
    313 				 ip6protox,
    314 #endif
    315 				 arpprotox,
    316 #ifdef IPSEC
    317 				 pfkeyprotox,
    318 #endif
    319 #ifndef SMALL
    320 				 atalkprotox,
    321 				 isoprotox,
    322 #endif
    323 				 NULL };
    324 
    325 const struct softintrq {
    326 	const char *siq_name;
    327 	int siq_index;
    328 } softintrq[] = {
    329 	{ "arpintrq", N_ARPINTRQ },
    330 	{ "ipintrq", N_IPINTRQ },
    331 	{ "ip6intrq", N_IP6INTRQ },
    332 	{ "atintrq1", N_ATINTRQ1 },
    333 	{ "atintrq2", N_ATINTRQ2 },
    334 	{ "clnlintrq", N_CLNLINTRQ },
    335 	{ "llcintrq", N_LLCINTRQ },
    336 	{ "hdintrq", N_HDINTRQ },
    337 	{ "natmintrq", N_NATMINTRQ },
    338 	{ "ppoediscinq", N_PPPOEDISCINQ },
    339 	{ "ppoeinq", N_PPPOEINQ },
    340 	{ "pkintrq", N_PKINTRQ },
    341 	{ NULL, -1 },
    342 };
    343 
    344 int main __P((int, char *[]));
    345 static void printproto __P((struct protox *, const char *));
    346 static void print_softintrq __P((void));
    347 __dead static void usage(void);
    348 static struct protox *name2protox __P((const char *));
    349 static struct protox *knownname __P((const char *));
    350 static void prepare(const char *, const char *, struct protox *tp);
    351 static kvm_t *prepare_kvmd(const char *, const char *, char *);
    352 
    353 static kvm_t *kvmd = NULL;
    354 gid_t egid;
    355 int interval;	/* repeat interval for i/f stats */
    356 static const char *nlistf = NULL, *memf = NULL;
    357 
    358 kvm_t *
    359 get_kvmd(void)
    360 {
    361 	char buf[_POSIX2_LINE_MAX];
    362 
    363 	if (kvmd != NULL)
    364 		return kvmd;
    365 	if ((kvmd = prepare_kvmd(nlistf, memf, buf)) == NULL)
    366 		errx(1, "kvm error: %s", buf);
    367 	return kvmd;
    368 }
    369 
    370 static kvm_t *
    371 prepare_kvmd(const char *nf, const char *mf, char *errbuf)
    372 {
    373 	kvm_t *k;
    374 
    375 	(void)setegid(egid);
    376 	k = kvm_openfiles(nf, mf, NULL, O_RDONLY, errbuf);
    377 	(void)setgid(getgid());
    378 	return k;
    379 }
    380 
    381 void
    382 prepare(const char *nf, const char *mf, struct protox *tp)
    383 {
    384 	char buf[_POSIX2_LINE_MAX];
    385 	/*
    386 	 * Try to figure out if we can use sysctl or not.
    387 	 */
    388 	if (nf != NULL && mf != NULL) {
    389 		/* Of course, we can't use sysctl with dumps. */
    390 		if (force_sysctl)
    391 			errx(EXIT_FAILURE, "can't use sysctl with dumps");
    392 
    393 		/* If we have -M and -N, we're not dealing with live memory. */
    394 		use_sysctl = 0;
    395 	} else if (qflag ||
    396 		   rflag ||
    397 		   iflag ||
    398 #ifndef SMALL
    399 		   gflag ||
    400 		   (pflag && tp->pr_sindex == N_TPSTAT) ||
    401 		   (pflag && tp->pr_sindex == N_CLTPSTAT) ||
    402 		   (pflag && tp->pr_sindex == N_CLNPSTAT) ||
    403 		   (pflag && tp->pr_sindex == N_ESISSTAT) ||
    404 #endif
    405 		   (pflag && tp->pr_sindex == N_PIMSTAT) ||
    406 		   Pflag) {
    407 		/* These flags are not yet supported via sysctl(3). */
    408 		use_sysctl = 0;
    409 	} else {
    410 		/* We can use sysctl(3). */
    411 		use_sysctl = 1;
    412 	}
    413 
    414 	if (force_sysctl && !use_sysctl) {
    415 		/* Let the user know what's about to happen. */
    416 		warnx("forcing sysctl usage even though it might not be "\
    417 		    "supported");
    418 		use_sysctl = 1;
    419 	}
    420 
    421 	kvmd = prepare_kvmd(nf, mf, buf);
    422 
    423 	if (!use_sysctl) {
    424 
    425 		if (kvmd == NULL)
    426 			errx(1, "kvm error: %s", buf);
    427 		if (kvm_nlist(kvmd, nl) < 0 || nl[0].n_type == 0) {
    428 			if (nf)
    429 				errx(1, "%s: no namelist", nf);
    430 			else
    431 				errx(1, "no namelist");
    432 		}
    433 	} else
    434 		(void)setgid(getgid());
    435 }
    436 
    437 int
    438 main(argc, argv)
    439 	int argc;
    440 	char *argv[];
    441 {
    442 	struct protoent *p;
    443 	struct protox *tp;	/* for printing cblocks & stats */
    444 	int ch;
    445 	char *cp;
    446 	u_long pcbaddr;
    447 
    448 	if (prog_init) {
    449 		if (prog_init() == -1)
    450 			err(1, "init failed");
    451 		force_sysctl = 1; /* cheap trick */
    452 	}
    453 
    454 	egid = getegid();
    455 	(void)setegid(getgid());
    456 	tp = NULL;
    457 	af = AF_UNSPEC;
    458 	pcbaddr = 0;
    459 
    460 	while ((ch = getopt(argc, argv,
    461 	    "AabBdf:ghI:LliM:mN:nP:p:qrsStTuVvw:X")) != -1)
    462 		switch (ch) {
    463 		case 'A':
    464 			Aflag = 1;
    465 			break;
    466 		case 'a':
    467 			aflag = 1;
    468 			break;
    469 		case 'b':
    470 			bflag = 1;
    471 			break;
    472 		case 'B':
    473 			Bflag = 1;
    474 			break;
    475 		case 'd':
    476 			dflag = 1;
    477 			break;
    478 		case 'f':
    479 			if (strcmp(optarg, "inet") == 0)
    480 				af = AF_INET;
    481 			else if (strcmp(optarg, "inet6") == 0)
    482 				af = AF_INET6;
    483 			else if (strcmp(optarg, "arp") == 0)
    484 				af = AF_ARP;
    485 			else if (strcmp(optarg, "pfkey") == 0)
    486 				af = PF_KEY;
    487 			else if (strcmp(optarg, "unix") == 0
    488 			    || strcmp(optarg, "local") == 0)
    489 				af = AF_LOCAL;
    490 			else if (strcmp(optarg, "iso") == 0)
    491 				af = AF_ISO;
    492 			else if (strcmp(optarg, "atalk") == 0)
    493 				af = AF_APPLETALK;
    494 			else if (strcmp(optarg, "mpls") == 0)
    495 				af = AF_MPLS;
    496 			else
    497 				errx(1, "%s: unknown address family",
    498 				    optarg);
    499 			break;
    500 #ifndef SMALL
    501 		case 'g':
    502 			gflag = 1;
    503 			break;
    504 #endif
    505 		case 'h':
    506 			hflag = 1;
    507 			break;
    508 		case 'I':
    509 			iflag = 1;
    510 			interface = optarg;
    511 			break;
    512 		case 'i':
    513 			iflag = 1;
    514 			break;
    515 		case 'L':
    516 			Lflag = 1;
    517 			break;
    518 		case 'l':
    519 			lflag = 1;
    520 			break;
    521 		case 'M':
    522 			memf = optarg;
    523 			break;
    524 		case 'm':
    525 			mflag = 1;
    526 			break;
    527 		case 'N':
    528 			nlistf = optarg;
    529 			break;
    530 		case 'n':
    531 			numeric_addr = numeric_port = nflag = 1;
    532 			break;
    533 		case 'P':
    534 			errno = 0;
    535 			pcbaddr = strtoul(optarg, &cp, 16);
    536 			if (*cp != '\0' || errno == ERANGE)
    537 				errx(1, "invalid PCB address %s",
    538 				    optarg);
    539 			Pflag = 1;
    540 			break;
    541 		case 'p':
    542 			if ((tp = name2protox(optarg)) == NULL)
    543 				errx(1, "%s: unknown or uninstrumented protocol",
    544 				    optarg);
    545 			pflag = 1;
    546 			break;
    547 		case 'q':
    548 			qflag = 1;
    549 			break;
    550 		case 'r':
    551 			rflag = 1;
    552 			break;
    553 		case 's':
    554 			++sflag;
    555 			break;
    556 		case 'S':
    557 			numeric_addr = 1;
    558 			break;
    559 		case 't':
    560 			tflag = 1;
    561 			break;
    562 		case 'T':
    563 			tagflag = 1;
    564 			break;
    565 		case 'u':
    566 			af = AF_LOCAL;
    567 			break;
    568 		case 'V':
    569 			Vflag++;
    570 			break;
    571 		case 'v':
    572 			vflag++;
    573 			break;
    574 		case 'w':
    575 			interval = atoi(optarg);
    576 			iflag = 1;
    577 			break;
    578 		case 'X':
    579 			force_sysctl = 1;
    580 			break;
    581 		case '?':
    582 		default:
    583 			usage();
    584 		}
    585 	argv += optind;
    586 	argc -= optind;
    587 
    588 #define	BACKWARD_COMPATIBILITY
    589 #ifdef	BACKWARD_COMPATIBILITY
    590 	if (*argv) {
    591 		if (isdigit((unsigned char)**argv)) {
    592 			interval = atoi(*argv);
    593 			if (interval <= 0)
    594 				usage();
    595 			++argv;
    596 			iflag = 1;
    597 		}
    598 		if (*argv) {
    599 			nlistf = *argv;
    600 			if (*++argv)
    601 				memf = *argv;
    602 		}
    603 	}
    604 #endif
    605 
    606 	prepare(nlistf, memf, tp);
    607 
    608 #ifndef SMALL
    609 	if (Bflag) {
    610 		if (sflag)
    611 			bpf_stats();
    612 		else
    613 			bpf_dump(interface);
    614 		exit(0);
    615 	}
    616 #endif
    617 
    618 	if (mflag) {
    619 		mbpr(nl[N_MBSTAT].n_value,  nl[N_MSIZE].n_value,
    620 		    nl[N_MCLBYTES].n_value, nl[N_MBPOOL].n_value,
    621 		    nl[N_MCLPOOL].n_value);
    622 		exit(0);
    623 	}
    624 	if (Pflag) {
    625 		if (tp == NULL) {
    626 			/* Default to TCP. */
    627 			tp = name2protox("tcp");
    628 		}
    629 		if (tp->pr_dump)
    630 			(*tp->pr_dump)(pcbaddr);
    631 		else
    632 			printf("%s: no PCB dump routine\n", tp->pr_name);
    633 		exit(0);
    634 	}
    635 	if (pflag) {
    636 		if (iflag && tp->pr_istats)
    637 			intpr(interval, nl[N_IFNET].n_value, tp->pr_istats);
    638 		else if (tp->pr_stats)
    639 			(*tp->pr_stats)(nl[tp->pr_sindex].n_value,
    640 				tp->pr_name);
    641 		else
    642 			printf("%s: no stats routine\n", tp->pr_name);
    643 		exit(0);
    644 	}
    645 	if (qflag) {
    646 		print_softintrq();
    647 		exit(0);
    648 	}
    649 	/*
    650 	 * Keep file descriptors open to avoid overhead
    651 	 * of open/close on each call to get* routines.
    652 	 */
    653 	sethostent(1);
    654 	setnetent(1);
    655 	if (iflag) {
    656 		if (af != AF_UNSPEC)
    657 			goto protostat;
    658 
    659 		intpr(interval, nl[N_IFNET].n_value, NULL);
    660 		exit(0);
    661 	}
    662 	if (rflag) {
    663 		if (sflag)
    664 			rt_stats(use_sysctl ? 0 : nl[N_RTSTAT].n_value);
    665 		else {
    666 			if (use_sysctl)
    667 				p_rttables(af);
    668 			else
    669 				routepr(nl[N_RTREE].n_value);
    670 		}
    671 		exit(0);
    672 	}
    673 #ifndef SMALL
    674 	if (gflag) {
    675 		if (sflag) {
    676 			if (af == AF_INET || af == AF_UNSPEC)
    677 				mrt_stats(nl[N_MRTPROTO].n_value,
    678 					  nl[N_MRTSTAT].n_value);
    679 #ifdef INET6
    680 			if (af == AF_INET6 || af == AF_UNSPEC)
    681 				mrt6_stats(nl[N_MRT6PROTO].n_value,
    682 					   nl[N_MRT6STAT].n_value);
    683 #endif
    684 		}
    685 		else {
    686 			if (af == AF_INET || af == AF_UNSPEC)
    687 				mroutepr(nl[N_MRTPROTO].n_value,
    688 					 nl[N_MFCHASHTBL].n_value,
    689 					 nl[N_MFCHASH].n_value,
    690 					 nl[N_VIFTABLE].n_value);
    691 #ifdef INET6
    692 			if (af == AF_INET6 || af == AF_UNSPEC)
    693 				mroute6pr(nl[N_MRT6PROTO].n_value,
    694 					  nl[N_MF6CTABLE].n_value,
    695 					  nl[N_MIF6TABLE].n_value);
    696 #endif
    697 		}
    698 		exit(0);
    699 	}
    700 #endif
    701   protostat:
    702 	if (af == AF_INET || af == AF_UNSPEC) {
    703 		setprotoent(1);
    704 		setservent(1);
    705 		/* ugh, this is O(MN) ... why do we do this? */
    706 		while ((p = getprotoent()) != NULL) {
    707 			for (tp = protox; tp->pr_name; tp++)
    708 				if (strcmp(tp->pr_name, p->p_name) == 0)
    709 					break;
    710 			if (tp->pr_name == 0 || tp->pr_wanted == 0)
    711 				continue;
    712 			printproto(tp, p->p_name);
    713 			tp->pr_wanted = 0;
    714 		}
    715 		endprotoent();
    716 		for (tp = protox; tp->pr_name; tp++)
    717 			if (tp->pr_wanted)
    718 				printproto(tp, tp->pr_name);
    719 	}
    720 #ifdef INET6
    721 	if (af == AF_INET6 || af == AF_UNSPEC)
    722 		for (tp = ip6protox; tp->pr_name; tp++)
    723 			printproto(tp, tp->pr_name);
    724 #endif
    725 	if (af == AF_ARP || af == AF_UNSPEC)
    726 		for (tp = arpprotox; tp->pr_name; tp++)
    727 			printproto(tp, tp->pr_name);
    728 #ifdef IPSEC
    729 	if (af == PF_KEY || af == AF_UNSPEC)
    730 		for (tp = pfkeyprotox; tp->pr_name; tp++)
    731 			printproto(tp, tp->pr_name);
    732 #endif
    733 #ifndef SMALL
    734 	if (af == AF_APPLETALK || af == AF_UNSPEC)
    735 		for (tp = atalkprotox; tp->pr_name; tp++)
    736 			printproto(tp, tp->pr_name);
    737 	if (af == AF_ISO || af == AF_UNSPEC)
    738 		for (tp = isoprotox; tp->pr_name; tp++)
    739 			printproto(tp, tp->pr_name);
    740 	if ((af == AF_LOCAL || af == AF_UNSPEC) && !sflag)
    741 		unixpr(nl[N_UNIXSW].n_value);
    742 #endif
    743 	exit(0);
    744 }
    745 
    746 /*
    747  * Print out protocol statistics or control blocks (per sflag).
    748  * If the interface was not specifically requested, and the symbol
    749  * is not in the namelist, ignore this one.
    750  */
    751 static void
    752 printproto(tp, name)
    753 	struct protox *tp;
    754 	const char *name;
    755 {
    756 	void (*pr) __P((u_long, const char *));
    757 	u_long off;
    758 
    759 	if (sflag) {
    760 		if (iflag) {
    761 			if (tp->pr_istats)
    762 				intpr(interval, nl[N_IFNET].n_value,
    763 				      tp->pr_istats);
    764 			return;
    765 		}
    766 		else {
    767 			pr = tp->pr_stats;
    768 			off = nl[tp->pr_sindex].n_value;
    769 		}
    770 	} else {
    771 		pr = tp->pr_cblocks;
    772 		off = nl[tp->pr_index].n_value;
    773 	}
    774 	if (pr != NULL && ((off || af != AF_UNSPEC) || use_sysctl)) {
    775 		(*pr)(off, name);
    776 	}
    777 }
    778 
    779 /*
    780  * Print softintrq status.
    781  */
    782 void
    783 print_softintrq()
    784 {
    785 	struct ifqueue intrq, *ifq = &intrq;
    786 	const struct softintrq *siq;
    787 	u_long off;
    788 
    789 	for (siq = softintrq; siq->siq_name != NULL; siq++) {
    790 		off = nl[siq->siq_index].n_value;
    791 		if (off == 0)
    792 			continue;
    793 
    794 		kread(off, (char *)ifq, sizeof(*ifq));
    795 		printf("%s:\n", siq->siq_name);
    796 		printf("\tqueue length: %d\n", ifq->ifq_len);
    797 		printf("\tmaximum queue length: %d\n", ifq->ifq_maxlen);
    798 		printf("\tpackets dropped: %d\n", ifq->ifq_drops);
    799 	}
    800 }
    801 
    802 /*
    803  * Read kernel memory, return 0 on success.
    804  */
    805 int
    806 kread(addr, buf, size)
    807 	u_long addr;
    808 	char *buf;
    809 	int size;
    810 {
    811 
    812 	if (kvm_read(kvmd, addr, buf, size) != size) {
    813 		warnx("%s", kvm_geterr(kvmd));
    814 		return (-1);
    815 	}
    816 	return (0);
    817 }
    818 
    819 const char *
    820 plural(n)
    821 	int n;
    822 {
    823 
    824 	return (n != 1 ? "s" : "");
    825 }
    826 
    827 const char *
    828 plurales(n)
    829 	int n;
    830 {
    831 
    832 	return (n != 1 ? "es" : "");
    833 }
    834 
    835 int
    836 get_hardticks(void)
    837 {
    838 	int hardticks;
    839 
    840 	kread(nl[N_HARDCLOCK_TICKS].n_value, (char *)&hardticks,
    841 	    sizeof(hardticks));
    842 	return (hardticks);
    843 }
    844 
    845 /*
    846  * Find the protox for the given "well-known" name.
    847  */
    848 static struct protox *
    849 knownname(name)
    850 	const char *name;
    851 {
    852 	struct protox **tpp, *tp;
    853 
    854 	for (tpp = protoprotox; *tpp; tpp++)
    855 		for (tp = *tpp; tp->pr_name; tp++)
    856 			if (strcmp(tp->pr_name, name) == 0)
    857 				return (tp);
    858 	return (NULL);
    859 }
    860 
    861 /*
    862  * Find the protox corresponding to name.
    863  */
    864 static struct protox *
    865 name2protox(name)
    866 	const char *name;
    867 {
    868 	struct protox *tp;
    869 	char **alias;			/* alias from p->aliases */
    870 	struct protoent *p;
    871 
    872 	/*
    873 	 * Try to find the name in the list of "well-known" names. If that
    874 	 * fails, check if name is an alias for an Internet protocol.
    875 	 */
    876 	if ((tp = knownname(name)) != NULL)
    877 		return (tp);
    878 
    879 	setprotoent(1);			/* make protocol lookup cheaper */
    880 	while ((p = getprotoent()) != NULL) {
    881 		/* assert: name not same as p->name */
    882 		for (alias = p->p_aliases; *alias; alias++)
    883 			if (strcmp(name, *alias) == 0) {
    884 				endprotoent();
    885 				return (knownname(p->p_name));
    886 			}
    887 	}
    888 	endprotoent();
    889 	return (NULL);
    890 }
    891 
    892 static void
    893 usage()
    894 {
    895 	const char *progname = getprogname();
    896 
    897 	(void)fprintf(stderr,
    898 "usage: %s [-Aan] [-f address_family] [-M core] [-N system]\n", progname);
    899 	(void)fprintf(stderr,
    900 "       %s [-bdgiLmnqrsSv] [-f address_family] [-M core] [-N system]\n",
    901 	progname);
    902 	(void)fprintf(stderr,
    903 "       %s [-dn] [-I interface] [-M core] [-N system] [-w wait]\n", progname);
    904 	(void)fprintf(stderr,
    905 "       %s [-p protocol] [-M core] [-N system]\n", progname);
    906 	(void)fprintf(stderr,
    907 "       %s [-p protocol] [-M core] [-N system] -P pcbaddr\n", progname);
    908 	(void)fprintf(stderr,
    909 "       %s [-p protocol] [-i] [-I Interface] \n", progname);
    910 	(void)fprintf(stderr,
    911 "       %s [-s] [-f address_family] [-i] [-I Interface]\n", progname);
    912 	(void)fprintf(stderr,
    913 "       %s [-s] [-B] [-I interface]\n", progname);
    914 	exit(1);
    915 }
    916