xref: /freebsd/usr.bin/netstat/sctp.c (revision 93e779a26c651610ac6e7986d67ecc9ed2cadcbf)
1 /*-
2  * Copyright (c) 2001-2007, by Weongyo Jeong. All rights reserved.
3  * Copyright (c) 2011, by Michael Tuexen. 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 are met:
7  *
8  * a) Redistributions of source code must retain the above copyright notice,
9  *   this list of conditions and the following disclaimer.
10  *
11  * b) Redistributions in binary form must reproduce the above copyright
12  *    notice, this list of conditions and the following disclaimer in
13  *   the documentation and/or other materials provided with the distribution.
14  *
15  * c) Neither the name of Cisco Systems, Inc. nor the names of its
16  *    contributors may be used to endorse or promote products derived
17  *    from this software without specific prior written permission.
18  *
19  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
20  * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
21  * THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
22  * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
23  * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
24  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
25  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
26  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
27  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
28  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
29  * THE POSSIBILITY OF SUCH DAMAGE.
30  */
31 
32 #if 0
33 #ifndef lint
34 static char sccsid[] = "@(#)sctp.c	0.1 (Berkeley) 4/18/2007";
35 #endif /* not lint */
36 #endif
37 
38 #include <sys/cdefs.h>
39 __FBSDID("$FreeBSD$");
40 
41 #include <sys/param.h>
42 #include <sys/queue.h>
43 #include <sys/types.h>
44 #include <sys/socket.h>
45 #include <sys/socketvar.h>
46 #include <sys/sysctl.h>
47 #include <sys/protosw.h>
48 
49 #include <netinet/in.h>
50 #include <netinet/sctp.h>
51 #include <netinet/sctp_constants.h>
52 #include <arpa/inet.h>
53 
54 #include <err.h>
55 #include <errno.h>
56 #include <libutil.h>
57 #include <netdb.h>
58 #include <stdint.h>
59 #include <stdio.h>
60 #include <stdlib.h>
61 #include <stdbool.h>
62 #include <string.h>
63 #include <unistd.h>
64 #include "netstat.h"
65 #include <libxo/xo.h>
66 
67 #ifdef SCTP
68 
69 static void sctp_statesprint(uint32_t state);
70 
71 #define	NETSTAT_SCTP_STATES_CLOSED		0x0
72 #define	NETSTAT_SCTP_STATES_BOUND		0x1
73 #define	NETSTAT_SCTP_STATES_LISTEN		0x2
74 #define	NETSTAT_SCTP_STATES_COOKIE_WAIT		0x3
75 #define	NETSTAT_SCTP_STATES_COOKIE_ECHOED	0x4
76 #define	NETSTAT_SCTP_STATES_ESTABLISHED		0x5
77 #define	NETSTAT_SCTP_STATES_SHUTDOWN_SENT	0x6
78 #define	NETSTAT_SCTP_STATES_SHUTDOWN_RECEIVED	0x7
79 #define	NETSTAT_SCTP_STATES_SHUTDOWN_ACK_SENT	0x8
80 #define	NETSTAT_SCTP_STATES_SHUTDOWN_PENDING	0x9
81 
82 static const char *sctpstates[] = {
83 	"CLOSED",
84 	"BOUND",
85 	"LISTEN",
86 	"COOKIE_WAIT",
87 	"COOKIE_ECHOED",
88 	"ESTABLISHED",
89 	"SHUTDOWN_SENT",
90 	"SHUTDOWN_RECEIVED",
91 	"SHUTDOWN_ACK_SENT",
92 	"SHUTDOWN_PENDING"
93 };
94 
95 static LIST_HEAD(xladdr_list, xladdr_entry) xladdr_head;
96 struct xladdr_entry {
97 	struct xsctp_laddr *xladdr;
98 	LIST_ENTRY(xladdr_entry) xladdr_entries;
99 };
100 
101 static LIST_HEAD(xraddr_list, xraddr_entry) xraddr_head;
102 struct xraddr_entry {
103 	struct xsctp_raddr *xraddr;
104 	LIST_ENTRY(xraddr_entry) xraddr_entries;
105 };
106 
107 /*
108  * Construct an Internet address representation.
109  * If numeric_addr has been supplied, give
110  * numeric value, otherwise try for symbolic name.
111  */
112 #ifdef INET
113 static char *
114 inetname(struct in_addr *inp)
115 {
116 	char *cp;
117 	static char line[MAXHOSTNAMELEN];
118 	struct hostent *hp;
119 	struct netent *np;
120 
121 	cp = 0;
122 	if (!numeric_addr && inp->s_addr != INADDR_ANY) {
123 		int net = inet_netof(*inp);
124 		int lna = inet_lnaof(*inp);
125 
126 		if (lna == INADDR_ANY) {
127 			np = getnetbyaddr(net, AF_INET);
128 			if (np)
129 				cp = np->n_name;
130 		}
131 		if (cp == 0) {
132 			hp = gethostbyaddr((char *)inp, sizeof (*inp), AF_INET);
133 			if (hp) {
134 				cp = hp->h_name;
135 				trimdomain(cp, strlen(cp));
136 			}
137 		}
138 	}
139 	if (inp->s_addr == INADDR_ANY)
140 		strcpy(line, "*");
141 	else if (cp) {
142 		strlcpy(line, cp, sizeof(line));
143 	} else {
144 		inp->s_addr = ntohl(inp->s_addr);
145 #define	C(x)	((u_int)((x) & 0xff))
146 		sprintf(line, "%u.%u.%u.%u", C(inp->s_addr >> 24),
147 		    C(inp->s_addr >> 16), C(inp->s_addr >> 8), C(inp->s_addr));
148 		inp->s_addr = htonl(inp->s_addr);
149 	}
150 	return (line);
151 }
152 #endif
153 
154 #ifdef INET6
155 static char ntop_buf[INET6_ADDRSTRLEN];
156 
157 static char *
158 inet6name(struct in6_addr *in6p)
159 {
160 	char *cp;
161 	static char line[50];
162 	struct hostent *hp;
163 	static char domain[MAXHOSTNAMELEN];
164 	static int first = 1;
165 
166 	if (first && !numeric_addr) {
167 		first = 0;
168 		if (gethostname(domain, MAXHOSTNAMELEN) == 0 &&
169 		    (cp = strchr(domain, '.')))
170 			(void) strcpy(domain, cp + 1);
171 		else
172 			domain[0] = 0;
173 	}
174 	cp = 0;
175 	if (!numeric_addr && !IN6_IS_ADDR_UNSPECIFIED(in6p)) {
176 		hp = gethostbyaddr((char *)in6p, sizeof(*in6p), AF_INET6);
177 		if (hp) {
178 			if ((cp = strchr(hp->h_name, '.')) &&
179 			    !strcmp(cp + 1, domain))
180 				*cp = 0;
181 			cp = hp->h_name;
182 		}
183 	}
184 	if (IN6_IS_ADDR_UNSPECIFIED(in6p))
185 		strcpy(line, "*");
186 	else if (cp)
187 		strcpy(line, cp);
188 	else
189 		sprintf(line, "%s",
190 			inet_ntop(AF_INET6, (void *)in6p, ntop_buf,
191 				sizeof(ntop_buf)));
192 	return (line);
193 }
194 #endif
195 
196 static void
197 sctp_print_address(const char *container, union sctp_sockstore *address,
198     int port, int num_port)
199 {
200 	struct servent *sp = 0;
201 	char line[80], *cp;
202 	int width;
203 
204 	if (container)
205 		xo_open_container(container);
206 
207 	switch (address->sa.sa_family) {
208 #ifdef INET
209 	case AF_INET:
210 		sprintf(line, "%.*s.", Wflag ? 39 : 16, inetname(&address->sin.sin_addr));
211 		break;
212 #endif
213 #ifdef INET6
214 	case AF_INET6:
215 		sprintf(line, "%.*s.", Wflag ? 39 : 16, inet6name(&address->sin6.sin6_addr));
216 		break;
217 #endif
218 	default:
219 		sprintf(line, "%.*s.", Wflag ? 39 : 16, "");
220 		break;
221 	}
222 	cp = strchr(line, '\0');
223 	if (!num_port && port)
224 		sp = getservbyport((int)port, "sctp");
225 	if (sp || port == 0)
226 		sprintf(cp, "%.15s ", sp ? sp->s_name : "*");
227 	else
228 		sprintf(cp, "%d ", ntohs((u_short)port));
229 	width = Wflag ? 45 : 22;
230 	xo_emit("{d:target/%-*.*s} ", width, width, line);
231 
232 	int alen = cp - line - 1, plen = strlen(cp) - 1;
233 	xo_emit("{e:address/%*.*s}{e:port/%*.*s}", alen, alen, line, plen,
234 	    plen, cp);
235 
236 	if (container)
237 		xo_close_container(container);
238 }
239 
240 static int
241 sctp_skip_xinpcb_ifneed(char *buf, const size_t buflen, size_t *offset)
242 {
243 	int exist_tcb = 0;
244 	struct xsctp_tcb *xstcb;
245 	struct xsctp_raddr *xraddr;
246 	struct xsctp_laddr *xladdr;
247 
248 	while (*offset < buflen) {
249 		xladdr = (struct xsctp_laddr *)(buf + *offset);
250 		*offset += sizeof(struct xsctp_laddr);
251 		if (xladdr->last == 1)
252 			break;
253 	}
254 
255 	while (*offset < buflen) {
256 		xstcb = (struct xsctp_tcb *)(buf + *offset);
257 		*offset += sizeof(struct xsctp_tcb);
258 		if (xstcb->last == 1)
259 			break;
260 
261 		exist_tcb = 1;
262 
263 		while (*offset < buflen) {
264 			xladdr = (struct xsctp_laddr *)(buf + *offset);
265 			*offset += sizeof(struct xsctp_laddr);
266 			if (xladdr->last == 1)
267 				break;
268 		}
269 
270 		while (*offset < buflen) {
271 			xraddr = (struct xsctp_raddr *)(buf + *offset);
272 			*offset += sizeof(struct xsctp_raddr);
273 			if (xraddr->last == 1)
274 				break;
275 		}
276 	}
277 
278 	/*
279 	 * If Lflag is set, we don't care about the return value.
280 	 */
281 	if (Lflag)
282 		return 0;
283 
284 	return exist_tcb;
285 }
286 
287 static void
288 sctp_process_tcb(struct xsctp_tcb *xstcb,
289     char *buf, const size_t buflen, size_t *offset, int *indent)
290 {
291 	int i, xl_total = 0, xr_total = 0, x_max;
292 	struct xsctp_raddr *xraddr;
293 	struct xsctp_laddr *xladdr;
294 	struct xladdr_entry *prev_xl = NULL, *xl = NULL, *xl_tmp;
295 	struct xraddr_entry *prev_xr = NULL, *xr = NULL, *xr_tmp;
296 
297 	LIST_INIT(&xladdr_head);
298 	LIST_INIT(&xraddr_head);
299 
300 	/*
301 	 * Make `struct xladdr_list' list and `struct xraddr_list' list
302 	 * to handle the address flexibly.
303 	 */
304 	while (*offset < buflen) {
305 		xladdr = (struct xsctp_laddr *)(buf + *offset);
306 		*offset += sizeof(struct xsctp_laddr);
307 		if (xladdr->last == 1)
308 			break;
309 
310 		prev_xl = xl;
311 		xl = malloc(sizeof(struct xladdr_entry));
312 		if (xl == NULL) {
313 			xo_warnx("malloc %lu bytes",
314 			    (u_long)sizeof(struct xladdr_entry));
315 			goto out;
316 		}
317 		xl->xladdr = xladdr;
318 		if (prev_xl == NULL)
319 			LIST_INSERT_HEAD(&xladdr_head, xl, xladdr_entries);
320 		else
321 			LIST_INSERT_AFTER(prev_xl, xl, xladdr_entries);
322 		xl_total++;
323 	}
324 
325 	while (*offset < buflen) {
326 		xraddr = (struct xsctp_raddr *)(buf + *offset);
327 		*offset += sizeof(struct xsctp_raddr);
328 		if (xraddr->last == 1)
329 			break;
330 
331 		prev_xr = xr;
332 		xr = malloc(sizeof(struct xraddr_entry));
333 		if (xr == NULL) {
334 			xo_warnx("malloc %lu bytes",
335 			    (u_long)sizeof(struct xraddr_entry));
336 			goto out;
337 		}
338 		xr->xraddr = xraddr;
339 		if (prev_xr == NULL)
340 			LIST_INSERT_HEAD(&xraddr_head, xr, xraddr_entries);
341 		else
342 			LIST_INSERT_AFTER(prev_xr, xr, xraddr_entries);
343 		xr_total++;
344 	}
345 
346 	/*
347 	 * Let's print the address infos.
348 	 */
349 	xo_open_list("address");
350 	xl = LIST_FIRST(&xladdr_head);
351 	xr = LIST_FIRST(&xraddr_head);
352 	x_max = (xl_total > xr_total) ? xl_total : xr_total;
353 	for (i = 0; i < x_max; i++) {
354 		xo_open_instance("address");
355 
356 		if (((*indent == 0) && i > 0) || *indent > 0)
357 			xo_emit("{P:/%-12s} ", " ");
358 
359 		if (xl != NULL) {
360 			sctp_print_address("local", &(xl->xladdr->address),
361 			    htons(xstcb->local_port), numeric_port);
362 		} else {
363 			if (Wflag) {
364 				xo_emit("{P:/%-45s} ", " ");
365 			} else {
366 				xo_emit("{P:/%-22s} ", " ");
367 			}
368 		}
369 
370 		if (xr != NULL && !Lflag) {
371 			sctp_print_address("remote", &(xr->xraddr->address),
372 			    htons(xstcb->remote_port), numeric_port);
373 		}
374 
375 		if (xl != NULL)
376 			xl = LIST_NEXT(xl, xladdr_entries);
377 		if (xr != NULL)
378 			xr = LIST_NEXT(xr, xraddr_entries);
379 
380 		if (i == 0 && !Lflag)
381 			sctp_statesprint(xstcb->state);
382 
383 		if (i < x_max)
384 			xo_emit("\n");
385 		xo_close_instance("address");
386 	}
387 
388 out:
389 	/*
390 	 * Free the list which be used to handle the address.
391 	 */
392 	xl = LIST_FIRST(&xladdr_head);
393 	while (xl != NULL) {
394 		xl_tmp = LIST_NEXT(xl, xladdr_entries);
395 		free(xl);
396 		xl = xl_tmp;
397 	}
398 
399 	xr = LIST_FIRST(&xraddr_head);
400 	while (xr != NULL) {
401 		xr_tmp = LIST_NEXT(xr, xraddr_entries);
402 		free(xr);
403 		xr = xr_tmp;
404 	}
405 }
406 
407 static void
408 sctp_process_inpcb(struct xsctp_inpcb *xinpcb,
409     char *buf, const size_t buflen, size_t *offset)
410 {
411 	int indent = 0, xladdr_total = 0, is_listening = 0;
412 	static int first = 1;
413 	const char *tname, *pname;
414 	struct xsctp_tcb *xstcb;
415 	struct xsctp_laddr *xladdr;
416 	size_t offset_laddr;
417 	int process_closed;
418 
419 	if (xinpcb->maxqlen > 0)
420 		is_listening = 1;
421 
422 	if (first) {
423 		if (!Lflag) {
424 			xo_emit("Active SCTP associations");
425 			if (aflag)
426 				xo_emit(" (including servers)");
427 		} else
428 			xo_emit("Current listen queue sizes (qlen/maxqlen)");
429 		xo_emit("\n");
430 		if (Lflag)
431 			xo_emit("{T:/%-6.6s} {T:/%-5.5s} {T:/%-8.8s} "
432 			    "{T:/%-22.22s}\n",
433 			    "Proto", "Type", "Listen", "Local Address");
434 		else
435 			if (Wflag)
436 				xo_emit("{T:/%-6.6s} {T:/%-5.5s} {T:/%-45.45s} "
437 				    "{T:/%-45.45s} {T:/%s}\n",
438 				    "Proto", "Type",
439 				    "Local Address", "Foreign Address",
440 				    "(state)");
441 			else
442 				xo_emit("{T:/%-6.6s} {T:/%-5.5s} {T:/%-22.22s} "
443 				    "{T:/%-22.22s} {T:/%s}\n",
444 				    "Proto", "Type",
445 				    "Local Address", "Foreign Address",
446 				    "(state)");
447 		first = 0;
448 	}
449 	xladdr = (struct xsctp_laddr *)(buf + *offset);
450 	if (Lflag && !is_listening) {
451 		sctp_skip_xinpcb_ifneed(buf, buflen, offset);
452 		return;
453 	}
454 
455 	if (xinpcb->flags & SCTP_PCB_FLAGS_BOUND_V6) {
456 		/* Can't distinguish between sctp46 and sctp6 */
457 		pname = "sctp46";
458 	} else {
459 		pname = "sctp4";
460 	}
461 
462 	if (xinpcb->flags & SCTP_PCB_FLAGS_TCPTYPE)
463 		tname = "1to1";
464 	else if (xinpcb->flags & SCTP_PCB_FLAGS_UDPTYPE)
465 		tname = "1toN";
466 	else
467 		tname = "????";
468 
469 	if (Lflag) {
470 		char buf1[9];
471 
472 		snprintf(buf1, 9, "%hu/%hu", xinpcb->qlen, xinpcb->maxqlen);
473 		xo_emit("{:protocol/%-6.6s/%s} {:type/%-5.5s/%s} ",
474 		    pname, tname);
475 		xo_emit("{d:queues/%-8.8s}{e:queue-len/%hu}"
476 		    "{e:max-queue-len/%hu} ",
477 		    buf1, xinpcb->qlen, xinpcb->maxqlen);
478 	}
479 
480 	offset_laddr = *offset;
481 	process_closed = 0;
482 
483 	xo_open_list("local-address");
484 retry:
485 	while (*offset < buflen) {
486 		xladdr = (struct xsctp_laddr *)(buf + *offset);
487 		*offset += sizeof(struct xsctp_laddr);
488 		if (xladdr->last) {
489 			if (aflag && !Lflag && (xladdr_total == 0) && process_closed) {
490 				xo_open_instance("local-address");
491 
492 				xo_emit("{:protocol/%-6.6s/%s} "
493 				    "{:type/%-5.5s/%s} ", pname, tname);
494 				if (Wflag) {
495 					xo_emit("{P:/%-91.91s/%s} "
496 					    "{:state/CLOSED}", " ");
497 				} else {
498 					xo_emit("{P:/%-45.45s/%s} "
499 					    "{:state/CLOSED}", " ");
500 				}
501 				xo_close_instance("local-address");
502 			}
503 			if (process_closed || is_listening) {
504 				xo_emit("\n");
505 			}
506 			break;
507 		}
508 
509 		if (!Lflag && !is_listening && !process_closed)
510 			continue;
511 
512 		xo_open_instance("local-address");
513 
514 		if (xladdr_total == 0) {
515 			xo_emit("{:protocol/%-6.6s/%s} {:type/%-5.5s/%s} ",
516 			    pname, tname);
517 		} else {
518 			xo_emit("\n");
519 			xo_emit(Lflag ? "{P:/%-21.21s} " : "{P:/%-12.12s} ",
520 			    " ");
521 		}
522 		sctp_print_address("local", &(xladdr->address),
523 		    htons(xinpcb->local_port), numeric_port);
524 		if (aflag && !Lflag && xladdr_total == 0) {
525 			if (Wflag) {
526 				if (process_closed) {
527 					xo_emit("{P:/%-45.45s} "
528 					    "{:state/CLOSED}", " ");
529 				} else {
530 					xo_emit("{P:/%-45.45s} "
531 					    "{:state:LISTEN}", " ");
532 				}
533 			} else {
534 				if (process_closed) {
535 					xo_emit("{P:/%-22.22s} "
536 					    "{:state/CLOSED}", " ");
537 				} else {
538 					xo_emit("{P:/%-22.22s} "
539 					    "{:state/LISTEN}", " ");
540 				}
541 			}
542 		}
543 		xladdr_total++;
544 		xo_close_instance("local-address");
545 	}
546 
547 	xstcb = (struct xsctp_tcb *)(buf + *offset);
548 	*offset += sizeof(struct xsctp_tcb);
549 	if (aflag && (xladdr_total == 0) && xstcb->last && !process_closed) {
550 		process_closed = 1;
551 		*offset = offset_laddr;
552 		goto retry;
553 	}
554 	while (xstcb->last == 0 && *offset < buflen) {
555 		xo_emit("{:protocol/%-6.6s/%s} {:type/%-5.5s/%s} ",
556 		    pname, tname);
557 		sctp_process_tcb(xstcb, buf, buflen, offset, &indent);
558 		indent++;
559 		xstcb = (struct xsctp_tcb *)(buf + *offset);
560 		*offset += sizeof(struct xsctp_tcb);
561 	}
562 
563 	xo_close_list("local-address");
564 }
565 
566 /*
567  * Print a summary of SCTP connections related to an Internet
568  * protocol.
569  */
570 void
571 sctp_protopr(u_long off __unused,
572     const char *name __unused, int af1 __unused, int proto)
573 {
574 	char *buf;
575 	const char *mibvar = "net.inet.sctp.assoclist";
576 	size_t offset = 0;
577 	size_t len = 0;
578 	struct xsctp_inpcb *xinpcb;
579 
580 	if (proto != IPPROTO_SCTP)
581 		return;
582 
583 	if (sysctlbyname(mibvar, 0, &len, 0, 0) < 0) {
584 		if (errno != ENOENT)
585 			xo_warn("sysctl: %s", mibvar);
586 		return;
587 	}
588 	if ((buf = malloc(len)) == 0) {
589 		xo_warnx("malloc %lu bytes", (u_long)len);
590 		return;
591 	}
592 	if (sysctlbyname(mibvar, buf, &len, 0, 0) < 0) {
593 		xo_warn("sysctl: %s", mibvar);
594 		free(buf);
595 		return;
596 	}
597 
598 	xinpcb = (struct xsctp_inpcb *)(buf + offset);
599 	offset += sizeof(struct xsctp_inpcb);
600 	while (xinpcb->last == 0 && offset < len) {
601 		sctp_process_inpcb(xinpcb, buf, (const size_t)len,
602 		    &offset);
603 
604 		xinpcb = (struct xsctp_inpcb *)(buf + offset);
605 		offset += sizeof(struct xsctp_inpcb);
606 	}
607 
608 	free(buf);
609 }
610 
611 static void
612 sctp_statesprint(uint32_t state)
613 {
614 	int idx;
615 
616 	switch (state) {
617 	case SCTP_CLOSED:
618 		idx = NETSTAT_SCTP_STATES_CLOSED;
619 		break;
620 	case SCTP_BOUND:
621 		idx = NETSTAT_SCTP_STATES_BOUND;
622 		break;
623 	case SCTP_LISTEN:
624 		idx = NETSTAT_SCTP_STATES_LISTEN;
625 		break;
626 	case SCTP_COOKIE_WAIT:
627 		idx = NETSTAT_SCTP_STATES_COOKIE_WAIT;
628 		break;
629 	case SCTP_COOKIE_ECHOED:
630 		idx = NETSTAT_SCTP_STATES_COOKIE_ECHOED;
631 		break;
632 	case SCTP_ESTABLISHED:
633 		idx = NETSTAT_SCTP_STATES_ESTABLISHED;
634 		break;
635 	case SCTP_SHUTDOWN_SENT:
636 		idx = NETSTAT_SCTP_STATES_SHUTDOWN_SENT;
637 		break;
638 	case SCTP_SHUTDOWN_RECEIVED:
639 		idx = NETSTAT_SCTP_STATES_SHUTDOWN_RECEIVED;
640 		break;
641 	case SCTP_SHUTDOWN_ACK_SENT:
642 		idx = NETSTAT_SCTP_STATES_SHUTDOWN_ACK_SENT;
643 		break;
644 	case SCTP_SHUTDOWN_PENDING:
645 		idx = NETSTAT_SCTP_STATES_SHUTDOWN_PENDING;
646 		break;
647 	default:
648 		xo_emit("UNKNOWN {:state/0x%08x}", state);
649 		return;
650 	}
651 
652 	xo_emit("{:state/%s}", sctpstates[idx]);
653 }
654 
655 /*
656  * Dump SCTP statistics structure.
657  */
658 void
659 sctp_stats(u_long off, const char *name, int af1 __unused, int proto __unused)
660 {
661 	struct sctpstat sctpstat;
662 
663 	if (fetch_stats("net.inet.sctp.stats", off, &sctpstat,
664 	    sizeof(sctpstat), kread) != 0)
665 		return;
666 
667 	xo_open_container(name);
668 	xo_emit("{T:/%s}:\n", name);
669 
670 #define	p(f, m) if (sctpstat.f || sflag <= 1) \
671 	xo_emit(m, (uintmax_t)sctpstat.f, plural(sctpstat.f))
672 #define	p1a(f, m) if (sctpstat.f || sflag <= 1) \
673 	xo_emit(m, (uintmax_t)sctpstat.f)
674 
675 	/*
676 	 * input statistics
677 	 */
678 	p(sctps_recvpackets, "\t{:received-packets/%ju} "
679 	    "{N:/input packet%s}\n");
680 	p(sctps_recvdatagrams, "\t\t{:received-datagrams/%ju} "
681 	    "{N:/datagram%s}\n");
682 	p(sctps_recvpktwithdata, "\t\t{:received-with-data/%ju} "
683 	    "{N:/packet%s that had data}\n");
684 	p(sctps_recvsacks, "\t\t{:received-sack-chunks/%ju} "
685 	    "{N:/input SACK chunk%s}\n");
686 	p(sctps_recvdata, "\t\t{:received-data-chunks/%ju} "
687 	    "{N:/input DATA chunk%s}\n");
688 	p(sctps_recvdupdata, "\t\t{:received-duplicate-data-chunks/%ju} "
689 	    "{N:/duplicate DATA chunk%s}\n");
690 	p(sctps_recvheartbeat, "\t\t{:received-hb-chunks/%ju} "
691 	    "{N:/input HB chunk%s}\n");
692 	p(sctps_recvheartbeatack, "\t\t{:received-hb-ack-chunks/%ju} "
693 	    "{N:/HB-ACK chunk%s}\n");
694 	p(sctps_recvecne, "\t\t{:received-ecne-chunks/%ju} "
695 	    "{N:/input ECNE chunk%s}\n");
696 	p(sctps_recvauth, "\t\t{:received-auth-chunks/%ju} "
697 	    "{N:/input AUTH chunk%s}\n");
698 	p(sctps_recvauthmissing, "\t\t{:dropped-missing-auth/%ju} "
699 	    "{N:/chunk%s missing AUTH}\n");
700 	p(sctps_recvivalhmacid, "\t\t{:dropped-invalid-hmac/%ju} "
701 	    "{N:/invalid HMAC id%s received}\n");
702 	p(sctps_recvivalkeyid, "\t\t{:dropped-invalid-secret/%ju} "
703 	    "{N:/invalid secret id%s received}\n");
704 	p1a(sctps_recvauthfailed, "\t\t{:dropped-auth-failed/%ju} "
705 	    "{N:/auth failed}\n");
706 	p1a(sctps_recvexpress, "\t\t{:received-fast-path/%ju} "
707 	    "{N:/fast path receives all one chunk}\n");
708 	p1a(sctps_recvexpressm, "\t\t{:receives-fast-path-multipart/%ju} "
709 	    "{N:/fast path multi-part data}\n");
710 
711 	/*
712 	 * output statistics
713 	 */
714 	p(sctps_sendpackets, "\t{:sent-packets/%ju} "
715 	    "{N:/output packet%s}\n");
716 	p(sctps_sendsacks, "\t\t{:sent-sacks/%ju} "
717 	    "{N:/output SACK%s}\n");
718 	p(sctps_senddata, "\t\t{:sent-data-chunks/%ju} "
719 	    "{N:/output DATA chunk%s}\n");
720 	p(sctps_sendretransdata, "\t\t{:sent-retransmitted-data-chunks/%ju} "
721 	    "{N:/retransmitted DATA chunk%s}\n");
722 	p(sctps_sendfastretrans, "\t\t"
723 	    "{:sent-fast-retransmitted-data-chunks/%ju} "
724 	    "{N:/fast retransmitted DATA chunk%s}\n");
725 	p(sctps_sendmultfastretrans, "\t\t"
726 	    "{:sent-fast-retransmitted-data-chunk-multiple-times/%ju} "
727 	    "{N:/FR'%s that happened more than once to same chunk}\n");
728 	p(sctps_sendheartbeat, "\t\t{:sent-hb-chunks/%ju} "
729 	    "{N:/output HB chunk%s}\n");
730 	p(sctps_sendecne, "\t\t{:sent-ecne-chunks/%ju} "
731 	    "{N:/output ECNE chunk%s}\n");
732 	p(sctps_sendauth, "\t\t{:sent-auth-chunks/%ju} "
733 	    "{N:/output AUTH chunk%s}\n");
734 	p1a(sctps_senderrors, "\t\t{:send-errors/%ju} "
735 	    "{N:/ip_output error counter}\n");
736 
737 	/*
738 	 * PCKDROPREP statistics
739 	 */
740 	xo_emit("\t{T:Packet drop statistics}:\n");
741 	xo_open_container("drop-statistics");
742 	p1a(sctps_pdrpfmbox, "\t\t{:middle-box/%ju} "
743 	    "{N:/from middle box}\n");
744 	p1a(sctps_pdrpfehos, "\t\t{:end-host/%ju} "
745 	    "{N:/from end host}\n");
746 	p1a(sctps_pdrpmbda, "\t\t{:with-data/%ju} "
747 	    "{N:/with data}\n");
748 	p1a(sctps_pdrpmbct, "\t\t{:non-data/%ju} "
749 	    "{N:/non-data, non-endhost}\n");
750 	p1a(sctps_pdrpbwrpt, "\t\t{:non-endhost/%ju} "
751 	    "{N:/non-endhost, bandwidth rep only}\n");
752 	p1a(sctps_pdrpcrupt, "\t\t{:short-header/%ju} "
753 	    "{N:/not enough for chunk header}\n");
754 	p1a(sctps_pdrpnedat, "\t\t{:short-data/%ju} "
755 	    "{N:/not enough data to confirm}\n");
756 	p1a(sctps_pdrppdbrk, "\t\t{:chunk-break/%ju} "
757 	    "{N:/where process_chunk_drop said break}\n");
758 	p1a(sctps_pdrptsnnf, "\t\t{:tsn-not-found/%ju} "
759 	    "{N:/failed to find TSN}\n");
760 	p1a(sctps_pdrpdnfnd, "\t\t{:reverse-tsn/%ju} "
761 	    "{N:/attempt reverse TSN lookup}\n");
762 	p1a(sctps_pdrpdiwnp, "\t\t{:confirmed-zero-window/%ju} "
763 	    "{N:/e-host confirms zero-rwnd}\n");
764 	p1a(sctps_pdrpdizrw, "\t\t{:middle-box-no-space/%ju} "
765 	    "{N:/midbox confirms no space}\n");
766 	p1a(sctps_pdrpbadd, "\t\t{:bad-data/%ju} "
767 	    "{N:/data did not match TSN}\n");
768 	p(sctps_pdrpmark, "\t\t{:tsn-marked-fast-retransmission/%ju} "
769 	    "{N:/TSN'%s marked for Fast Retran}\n");
770 	xo_close_container("drop-statistics");
771 
772 	/*
773 	 * Timeouts
774 	 */
775 	xo_emit("\t{T:Timeouts}:\n");
776 	xo_open_container("timeouts");
777 	p(sctps_timoiterator, "\t\t{:iterator/%ju} "
778 	    "{N:/iterator timer%s fired}\n");
779 	p(sctps_timodata, "\t\t{:t3-data/%ju} "
780 	    "{N:/T3 data time out%s}\n");
781 	p(sctps_timowindowprobe, "\t\t{:window-probe/%ju} "
782 	    "{N:/window probe (T3) timer%s fired}\n");
783 	p(sctps_timoinit, "\t\t{:init-timer/%ju} "
784 	    "{N:/INIT timer%s fired}\n");
785 	p(sctps_timosack, "\t\t{:sack-timer/%ju} "
786 	    "{N:/sack timer%s fired}\n");
787 	p(sctps_timoshutdown, "\t\t{:shutdown-timer/%ju} "
788 	    "{N:/shutdown timer%s fired}\n");
789 	p(sctps_timoheartbeat, "\t\t{:heartbeat-timer/%ju} "
790 	    "{N:/heartbeat timer%s fired}\n");
791 	p1a(sctps_timocookie, "\t\t{:cookie-timer/%ju} "
792 	    "{N:/a cookie timeout fired}\n");
793 	p1a(sctps_timosecret, "\t\t{:endpoint-changed-cookie/%ju} "
794 	    "{N:/an endpoint changed its cook}ie"
795 	    "secret\n");
796 	p(sctps_timopathmtu, "\t\t{:pmtu-timer/%ju} "
797 	    "{N:/PMTU timer%s fired}\n");
798 	p(sctps_timoshutdownack, "\t\t{:shutdown-timer/%ju} "
799 	    "{N:/shutdown ack timer%s fired}\n");
800 	p(sctps_timoshutdownguard, "\t\t{:shutdown-guard-timer/%ju} "
801 	    "{N:/shutdown guard timer%s fired}\n");
802 	p(sctps_timostrmrst, "\t\t{:stream-reset-timer/%ju} "
803 	    "{N:/stream reset timer%s fired}\n");
804 	p(sctps_timoearlyfr, "\t\t{:early-fast-retransmission-timer/%ju} "
805 	    "{N:/early FR timer%s fired}\n");
806 	p1a(sctps_timoasconf, "\t\t{:asconf-timer/%ju} "
807 	    "{N:/an asconf timer fired}\n");
808 	p1a(sctps_timoautoclose, "\t\t{:auto-close-timer/%ju} "
809 	    "{N:/auto close timer fired}\n");
810 	p(sctps_timoassockill, "\t\t{:asoc-free-timer/%ju} "
811 	    "{N:/asoc free timer%s expired}\n");
812 	p(sctps_timoinpkill, "\t\t{:input-free-timer/%ju} "
813 	    "{N:/inp free timer%s expired}\n");
814 	xo_close_container("timeouts");
815 
816 #if 0
817 	/*
818 	 * Early fast retransmission counters
819 	 */
820 	p(sctps_earlyfrstart, "\t%ju TODO:sctps_earlyfrstart\n");
821 	p(sctps_earlyfrstop, "\t%ju TODO:sctps_earlyfrstop\n");
822 	p(sctps_earlyfrmrkretrans, "\t%ju TODO:sctps_earlyfrmrkretrans\n");
823 	p(sctps_earlyfrstpout, "\t%ju TODO:sctps_earlyfrstpout\n");
824 	p(sctps_earlyfrstpidsck1, "\t%ju TODO:sctps_earlyfrstpidsck1\n");
825 	p(sctps_earlyfrstpidsck2, "\t%ju TODO:sctps_earlyfrstpidsck2\n");
826 	p(sctps_earlyfrstpidsck3, "\t%ju TODO:sctps_earlyfrstpidsck3\n");
827 	p(sctps_earlyfrstpidsck4, "\t%ju TODO:sctps_earlyfrstpidsck4\n");
828 	p(sctps_earlyfrstrid, "\t%ju TODO:sctps_earlyfrstrid\n");
829 	p(sctps_earlyfrstrout, "\t%ju TODO:sctps_earlyfrstrout\n");
830 	p(sctps_earlyfrstrtmr, "\t%ju TODO:sctps_earlyfrstrtmr\n");
831 #endif
832 
833 	/*
834 	 * Others
835 	 */
836 	p1a(sctps_hdrops, "\t{:dropped-too-short/%ju} "
837 	    "{N:/packet shorter than header}\n");
838 	p1a(sctps_badsum, "\t{:dropped-bad-checksum/%ju} "
839 	    "{N:/checksum error}\n");
840 	p1a(sctps_noport, "\t{:dropped-no-endpoint/%ju} "
841 	    "{N:/no endpoint for port}\n");
842 	p1a(sctps_badvtag, "\t{:dropped-bad-v-tag/%ju} "
843 	    "{N:/bad v-tag}\n");
844 	p1a(sctps_badsid, "\t{:dropped-bad-sid/%ju} "
845 	    "{N:/bad SID}\n");
846 	p1a(sctps_nomem, "\t{:dropped-no-memory/%ju} "
847 	    "{N:/no memory}\n");
848 	p1a(sctps_fastretransinrtt, "\t{:multiple-fast-retransmits-in-rtt/%ju} "
849 	    "{N:/number of multiple FR in a RT}T window\n");
850 #if 0
851 	p(sctps_markedretrans, "\t%ju TODO:sctps_markedretrans\n");
852 #endif
853 	p1a(sctps_naglesent, "\t{:rfc813-sent/%ju} "
854 	    "{N:/RFC813 allowed sending}\n");
855 	p1a(sctps_naglequeued, "\t{:rfc813-queued/%ju} "
856 	    "{N:/RFC813 does not allow sending}\n");
857 	p1a(sctps_maxburstqueued, "\t{:max-burst-queued/%ju} "
858 	    "{N:/times max burst prohibited sending}\n");
859 	p1a(sctps_ifnomemqueued, "\t{:no-memory-in-interface/%ju} "
860 	    "{N:/look ahead tells us no memory in interface}\n");
861 	p(sctps_windowprobed, "\t{:sent-window-probes/%ju} "
862 	    "{N:/number%s of window probes sent}\n");
863 	p(sctps_lowlevelerr, "\t{:low-level-err/%ju} "
864 	    "{N:/time%s an output error to clamp down on next user send}\n");
865 	p(sctps_lowlevelerrusr, "\t{:low-level-user-error/%ju} "
866 	    "{N:/time%s sctp_senderrors were caused from a user}\n");
867 	p(sctps_datadropchklmt, "\t{:dropped-chunk-limit/%ju} "
868 	    "{N:/number of in data drop%s due to chunk limit reached}\n");
869 	p(sctps_datadroprwnd, "\t{:dropped-rwnd-limit/%ju} "
870 	    "{N:/number of in data drop%s due to rwnd limit reached}\n");
871 	p(sctps_ecnereducedcwnd, "\t{:ecn-reduced-cwnd/%ju} "
872 	    "{N:/time%s a ECN reduced the cwnd}\n");
873 	p1a(sctps_vtagexpress, "\t{:v-tag-express-lookup/%ju} "
874 	    "{N:/used express lookup via vtag}\n");
875 	p1a(sctps_vtagbogus, "\t{:v-tag-collision/%ju} "
876 	    "{N:/collision in express lookup}\n");
877 	p(sctps_primary_randry, "\t{:sender-ran-dry/%ju} "
878 	    "{N:/time%s the sender ran dry of user data on primary}\n");
879 	p1a(sctps_cmt_randry, "\t{:cmt-ran-dry/%ju} "
880 	    "{N:/same for above}\n");
881 	p(sctps_slowpath_sack, "\t{:slow-path-sack/%ju} "
882 	    "{N:/sack%s the slow way}\n");
883 	p(sctps_wu_sacks_sent, "\t{:sent-window-update-only-sack/%ju} "
884 	    "{N:/window update only sack%s sent}\n");
885 	p(sctps_sends_with_flags, "\t{:sent-with-sinfo/%ju} "
886 	    "{N:/send%s with sinfo_flags !=0}\n");
887 	p(sctps_sends_with_unord, "\t{:sent-with-unordered/%ju} "
888 	    "{N:/unordered send%s}\n");
889 	p(sctps_sends_with_eof, "\t{:sent-with-eof/%ju} "
890 	    "{N:/send%s with EOF flag set}\n");
891 	p(sctps_sends_with_abort, "\t{:sent-with-abort/%ju} "
892 	    "{N:/send%s with ABORT flag set}\n");
893 	p(sctps_protocol_drain_calls, "\t{:protocol-drain-called/%ju} "
894 	    "{N:/time%s protocol drain called}\n");
895 	p(sctps_protocol_drains_done, "\t{:protocol-drain/%ju} "
896 	    "{N:/time%s we did a protocol drain}\n");
897 	p(sctps_read_peeks, "\t{:read-with-peek/%ju} "
898 	    "{N:/time%s recv was called with peek}\n");
899 	p(sctps_cached_chk, "\t{:cached-chunks/%ju} "
900 	    "{N:/cached chunk%s used}\n");
901 	p1a(sctps_cached_strmoq, "\t{:cached-output-queue-used/%ju} "
902 	    "{N:/cached stream oq's used}\n");
903 	p(sctps_left_abandon, "\t{:messages-abandoned/%ju} "
904 	    "{N:/unread message%s abandonded by close}\n");
905 	p1a(sctps_send_burst_avoid, "\t{:send-burst-avoidance/%ju} "
906 	    "{N:/send burst avoidance, already max burst inflight to net}\n");
907 	p1a(sctps_send_cwnd_avoid, "\t{:send-cwnd-avoidance/%ju} "
908 	    "{N:/send cwnd full avoidance, already max burst inflight "
909 	    "to net}\n");
910 	p(sctps_fwdtsn_map_over, "\t{:tsn-map-overruns/%ju} "
911 	   "{N:/number of map array over-run%s via fwd-tsn's}\n");
912 
913 #undef p
914 #undef p1a
915 	xo_close_container(name);
916 }
917 
918 #endif /* SCTP */
919