xref: /dragonfly/sys/netinet/tcp_debug.c (revision 556932ec)
1 /*
2  * Copyright (c) 1982, 1986, 1993
3  *	The Regents of the University of California.  All rights reserved.
4  *
5  * Redistribution and use in source and binary forms, with or without
6  * modification, are permitted provided that the following conditions
7  * are met:
8  * 1. Redistributions of source code must retain the above copyright
9  *    notice, this list of conditions and the following disclaimer.
10  * 2. Redistributions in binary form must reproduce the above copyright
11  *    notice, this list of conditions and the following disclaimer in the
12  *    documentation and/or other materials provided with the distribution.
13  * 3. Neither the name of the University nor the names of its contributors
14  *    may be used to endorse or promote products derived from this software
15  *    without specific prior written permission.
16  *
17  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
18  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
19  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
20  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
21  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
22  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
23  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
24  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
25  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
26  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
27  * SUCH DAMAGE.
28  *
29  *	@(#)tcp_debug.c	8.1 (Berkeley) 6/10/93
30  * $FreeBSD: src/sys/netinet/tcp_debug.c,v 1.16.2.1 2000/07/15 07:14:31 kris Exp $
31  */
32 
33 #include "opt_inet.h"
34 #include "opt_inet6.h"
35 
36 #ifndef INET
37 #error The option TCPDEBUG requires option INET.
38 #endif
39 
40 /* load symbolic names */
41 #define PRUREQUESTS
42 #define TCPSTATES
43 #define	TCPTIMERS
44 #define	TANAMES
45 
46 #include <sys/param.h>
47 #include <sys/systm.h>
48 #include <sys/protosw.h>
49 #include <sys/socket.h>
50 
51 #include <net/netisr.h>
52 #include <net/netmsg.h>
53 
54 #include <netinet/in.h>
55 #include <netinet/in_systm.h>
56 #include <netinet/ip.h>
57 #ifdef INET6
58 #include <netinet/ip6.h>
59 #endif
60 #include <netinet/ip_var.h>
61 #include <netinet/tcp.h>
62 #include <netinet/tcp_fsm.h>
63 #include <netinet/tcp_timer.h>
64 #include <netinet/tcp_var.h>
65 #include <netinet/tcpip.h>
66 #include <netinet/tcp_debug.h>
67 
68 static int	tcpconsdebug = 0;
69 static struct tcp_debug tcp_debug[TCP_NDEBUG];
70 static int	tcp_debx;
71 
72 /*
73  * Tcp debug routines
74  */
75 void
76 tcp_trace(short act, short ostate, struct tcpcb *tp, void *ipgen,
77 	  struct tcphdr *th, int req)
78 {
79 #ifdef INET6
80 	int isipv6;
81 #endif /* INET6 */
82 	tcp_seq seq, ack;
83 	int len, flags;
84 	struct tcp_debug *td = &tcp_debug[tcp_debx++];
85 
86 #ifdef INET6
87 	isipv6 = (ipgen != NULL && ((struct ip *)ipgen)->ip_v == 6) ? 1 : 0;
88 #endif /* INET6 */
89 	td->td_family =
90 #ifdef INET6
91 		(isipv6 != 0) ? AF_INET6 :
92 #endif
93 		AF_INET;
94 	if (tcp_debx == TCP_NDEBUG)
95 		tcp_debx = 0;
96 	td->td_time = iptime();
97 	td->td_act = act;
98 	td->td_ostate = ostate;
99 	td->td_tcb = (caddr_t)tp;
100 	if (tp)
101 		td->td_cb = *tp;
102 	else
103 		bzero(&td->td_cb, sizeof *tp);
104 	if (ipgen) {
105 		switch (td->td_family) {
106 		case AF_INET:
107 			bcopy(ipgen, &td->td_ti.ti_i, sizeof(td->td_ti.ti_i));
108 			bzero(td->td_ip6buf, sizeof td->td_ip6buf);
109 			break;
110 #ifdef INET6
111 		case AF_INET6:
112 			bcopy(ipgen, td->td_ip6buf, sizeof td->td_ip6buf);
113 			bzero(&td->td_ti.ti_i, sizeof td->td_ti.ti_i);
114 			break;
115 #endif
116 		default:
117 			bzero(td->td_ip6buf, sizeof td->td_ip6buf);
118 			bzero(&td->td_ti.ti_i, sizeof td->td_ti.ti_i);
119 			break;
120 		}
121 	} else {
122 		bzero(&td->td_ti.ti_i, sizeof td->td_ti.ti_i);
123 		bzero(td->td_ip6buf, sizeof td->td_ip6buf);
124 	}
125 	if (th) {
126 		switch (td->td_family) {
127 		case AF_INET:
128 			td->td_ti.ti_t = *th;
129 			bzero(&td->td_ti6.th, sizeof td->td_ti6.th);
130 			break;
131 #ifdef INET6
132 		case AF_INET6:
133 			td->td_ti6.th = *th;
134 			bzero(&td->td_ti.ti_t, sizeof td->td_ti.ti_t);
135 			break;
136 #endif
137 		default:
138 			bzero(&td->td_ti.ti_t, sizeof td->td_ti.ti_t);
139 			bzero(&td->td_ti6.th, sizeof td->td_ti6.th);
140 			break;
141 		}
142 	} else {
143 		bzero(&td->td_ti.ti_t, sizeof td->td_ti.ti_t);
144 		bzero(&td->td_ti6.th, sizeof td->td_ti6.th);
145 	}
146 	td->td_req = req;
147 	if (tcpconsdebug == 0)
148 		return;
149 	if (tp)
150 		kprintf("%p %s:", tp, tcpstates[ostate]);
151 	else
152 		kprintf("???????? ");
153 	kprintf("%s ", tanames[act]);
154 	switch (act) {
155 
156 	case TA_INPUT:
157 	case TA_OUTPUT:
158 	case TA_DROP:
159 		if (ipgen == NULL || th == NULL)
160 			break;
161 		seq = th->th_seq;
162 		ack = th->th_ack;
163 		len =
164 #ifdef INET6
165 			isipv6 ? ((struct ip6_hdr *)ipgen)->ip6_plen :
166 #endif
167 			ntohs(((struct ip *)ipgen)->ip_len);
168 		if (act == TA_OUTPUT) {
169 			seq = ntohl(seq);
170 			ack = ntohl(ack);
171 			len = ntohs((u_short)len);
172 		}
173 		if (act == TA_OUTPUT)
174 			len -= sizeof(struct tcphdr);
175 		if (len)
176 			kprintf("[%x..%x)", seq, seq+len);
177 		else
178 			kprintf("%x", seq);
179 		kprintf("@%x, urp=%x", ack, th->th_urp);
180 		flags = th->th_flags;
181 		if (flags) {
182 			char *cp = "<";
183 #define pf(f) {					\
184 	if (th->th_flags & TH_##f) {		\
185 		kprintf("%s%s", cp, #f);		\
186 		cp = ",";			\
187 	}					\
188 }
189 			pf(SYN); pf(ACK); pf(FIN); pf(RST); pf(PUSH); pf(URG);
190 			kprintf(">");
191 		}
192 		break;
193 
194 	case TA_USER:
195 		kprintf("%s", prurequests[req&0xff]);
196 		if ((req & 0xff) == PRU_SLOWTIMO)
197 			kprintf("<%s>", tcptimers[req>>8]);
198 		break;
199 	}
200 	if (tp)
201 		kprintf(" -> %s", tcpstates[tp->t_state]);
202 	/* print out internal state of tp !?! */
203 	kprintf("\n");
204 	if (tp == NULL)
205 		return;
206 	kprintf(
207 	"\trcv_(nxt,wnd,up) (%lx,%lx,%lx) snd_(una,nxt,max) (%lx,%lx,%lx)\n",
208 	    (u_long)tp->rcv_nxt, tp->rcv_wnd, (u_long)tp->rcv_up,
209 	    (u_long)tp->snd_una, (u_long)tp->snd_nxt, (u_long)tp->snd_max);
210 	kprintf("\tsnd_(wl1,wl2,wnd) (%lx,%lx,%lx)\n",
211 	    (u_long)tp->snd_wl1, (u_long)tp->snd_wl2, tp->snd_wnd);
212 }
213