inet.c revision 1.32 1 1.32 mrg /* $NetBSD: inet.c,v 1.32 1998/07/12 03:20:14 mrg Exp $ */
2 1.14 thorpej
3 1.1 cgd /*
4 1.9 mycroft * Copyright (c) 1983, 1988, 1993
5 1.9 mycroft * The Regents of the University of California. All rights reserved.
6 1.1 cgd *
7 1.1 cgd * Redistribution and use in source and binary forms, with or without
8 1.1 cgd * modification, are permitted provided that the following conditions
9 1.1 cgd * are met:
10 1.1 cgd * 1. Redistributions of source code must retain the above copyright
11 1.1 cgd * notice, this list of conditions and the following disclaimer.
12 1.1 cgd * 2. Redistributions in binary form must reproduce the above copyright
13 1.1 cgd * notice, this list of conditions and the following disclaimer in the
14 1.1 cgd * documentation and/or other materials provided with the distribution.
15 1.1 cgd * 3. All advertising materials mentioning features or use of this software
16 1.1 cgd * must display the following acknowledgement:
17 1.1 cgd * This product includes software developed by the University of
18 1.1 cgd * California, Berkeley and its contributors.
19 1.1 cgd * 4. Neither the name of the University nor the names of its contributors
20 1.1 cgd * may be used to endorse or promote products derived from this software
21 1.1 cgd * without specific prior written permission.
22 1.1 cgd *
23 1.1 cgd * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
24 1.1 cgd * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25 1.1 cgd * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26 1.1 cgd * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
27 1.1 cgd * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28 1.1 cgd * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29 1.1 cgd * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30 1.1 cgd * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31 1.1 cgd * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32 1.1 cgd * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
33 1.1 cgd * SUCH DAMAGE.
34 1.1 cgd */
35 1.1 cgd
36 1.23 lukem #include <sys/cdefs.h>
37 1.1 cgd #ifndef lint
38 1.14 thorpej #if 0
39 1.14 thorpej static char sccsid[] = "from: @(#)inet.c 8.4 (Berkeley) 4/20/94";
40 1.14 thorpej #else
41 1.32 mrg __RCSID("$NetBSD: inet.c,v 1.32 1998/07/12 03:20:14 mrg Exp $");
42 1.14 thorpej #endif
43 1.1 cgd #endif /* not lint */
44 1.1 cgd
45 1.1 cgd #include <sys/param.h>
46 1.10 cgd #include <sys/queue.h>
47 1.1 cgd #include <sys/socket.h>
48 1.1 cgd #include <sys/socketvar.h>
49 1.1 cgd #include <sys/mbuf.h>
50 1.1 cgd #include <sys/protosw.h>
51 1.1 cgd
52 1.1 cgd #include <net/route.h>
53 1.1 cgd #include <netinet/in.h>
54 1.1 cgd #include <netinet/in_systm.h>
55 1.1 cgd #include <netinet/ip.h>
56 1.1 cgd #include <netinet/in_pcb.h>
57 1.1 cgd #include <netinet/ip_icmp.h>
58 1.1 cgd #include <netinet/icmp_var.h>
59 1.6 brezak #include <netinet/igmp_var.h>
60 1.1 cgd #include <netinet/ip_var.h>
61 1.1 cgd #include <netinet/tcp.h>
62 1.1 cgd #include <netinet/tcpip.h>
63 1.1 cgd #include <netinet/tcp_seq.h>
64 1.1 cgd #define TCPSTATES
65 1.1 cgd #include <netinet/tcp_fsm.h>
66 1.30 thorpej #define TCPTIMERS
67 1.1 cgd #include <netinet/tcp_timer.h>
68 1.1 cgd #include <netinet/tcp_var.h>
69 1.1 cgd #include <netinet/tcp_debug.h>
70 1.1 cgd #include <netinet/udp.h>
71 1.1 cgd #include <netinet/udp_var.h>
72 1.1 cgd
73 1.9 mycroft #include <arpa/inet.h>
74 1.1 cgd #include <netdb.h>
75 1.1 cgd #include <stdio.h>
76 1.1 cgd #include <string.h>
77 1.9 mycroft #include <unistd.h>
78 1.9 mycroft #include "netstat.h"
79 1.1 cgd
80 1.1 cgd struct inpcb inpcb;
81 1.1 cgd struct tcpcb tcpcb;
82 1.1 cgd struct socket sockb;
83 1.1 cgd
84 1.9 mycroft char *inetname __P((struct in_addr *));
85 1.28 lukem void inetprint __P((struct in_addr *, u_int16_t, const char *, int));
86 1.1 cgd
87 1.1 cgd /*
88 1.1 cgd * Print a summary of connections related to an Internet
89 1.1 cgd * protocol. For TCP, also give state of connection.
90 1.1 cgd * Listening processes (aflag) are suppressed unless the
91 1.1 cgd * -a (all) flag is specified.
92 1.1 cgd */
93 1.9 mycroft void
94 1.1 cgd protopr(off, name)
95 1.8 cgd u_long off;
96 1.1 cgd char *name;
97 1.1 cgd {
98 1.12 mycroft struct inpcbtable table;
99 1.23 lukem struct inpcb *head, *next, *prev;
100 1.13 cgd struct inpcb inpcb;
101 1.1 cgd int istcp;
102 1.1 cgd static int first = 1;
103 1.1 cgd
104 1.1 cgd if (off == 0)
105 1.1 cgd return;
106 1.1 cgd istcp = strcmp(name, "tcp") == 0;
107 1.12 mycroft kread(off, (char *)&table, sizeof table);
108 1.13 cgd prev = head =
109 1.13 cgd (struct inpcb *)&((struct inpcbtable *)off)->inpt_queue.cqh_first;
110 1.13 cgd next = table.inpt_queue.cqh_first;
111 1.13 cgd
112 1.13 cgd while (next != head) {
113 1.12 mycroft kread((u_long)next, (char *)&inpcb, sizeof inpcb);
114 1.13 cgd if (inpcb.inp_queue.cqe_prev != prev) {
115 1.1 cgd printf("???\n");
116 1.1 cgd break;
117 1.1 cgd }
118 1.13 cgd prev = next;
119 1.13 cgd next = inpcb.inp_queue.cqe_next;
120 1.13 cgd
121 1.1 cgd if (!aflag &&
122 1.12 mycroft inet_lnaof(inpcb.inp_laddr) == INADDR_ANY)
123 1.1 cgd continue;
124 1.9 mycroft kread((u_long)inpcb.inp_socket, (char *)&sockb, sizeof (sockb));
125 1.1 cgd if (istcp) {
126 1.9 mycroft kread((u_long)inpcb.inp_ppcb,
127 1.9 mycroft (char *)&tcpcb, sizeof (tcpcb));
128 1.1 cgd }
129 1.1 cgd if (first) {
130 1.1 cgd printf("Active Internet connections");
131 1.1 cgd if (aflag)
132 1.1 cgd printf(" (including servers)");
133 1.1 cgd putchar('\n');
134 1.1 cgd if (Aflag)
135 1.1 cgd printf("%-8.8s ", "PCB");
136 1.1 cgd printf(Aflag ?
137 1.1 cgd "%-5.5s %-6.6s %-6.6s %-18.18s %-18.18s %s\n" :
138 1.1 cgd "%-5.5s %-6.6s %-6.6s %-22.22s %-22.22s %s\n",
139 1.1 cgd "Proto", "Recv-Q", "Send-Q",
140 1.1 cgd "Local Address", "Foreign Address", "(state)");
141 1.1 cgd first = 0;
142 1.1 cgd }
143 1.1 cgd if (Aflag)
144 1.1 cgd if (istcp)
145 1.21 christos printf("%8lx ", (u_long) inpcb.inp_ppcb);
146 1.1 cgd else
147 1.21 christos printf("%8lx ", (u_long) prev);
148 1.20 christos printf("%-5.5s %6ld %6ld ", name, sockb.so_rcv.sb_cc,
149 1.1 cgd sockb.so_snd.sb_cc);
150 1.28 lukem if (nflag) {
151 1.28 lukem inetprint(&inpcb.inp_laddr, inpcb.inp_lport, name, 1);
152 1.28 lukem inetprint(&inpcb.inp_faddr, inpcb.inp_fport, name, 1);
153 1.28 lukem } else if (inpcb.inp_flags & INP_ANONPORT) {
154 1.28 lukem inetprint(&inpcb.inp_laddr, inpcb.inp_lport, name, 1);
155 1.28 lukem inetprint(&inpcb.inp_faddr, inpcb.inp_fport, name, 0);
156 1.28 lukem } else {
157 1.28 lukem inetprint(&inpcb.inp_laddr, inpcb.inp_lport, name, 0);
158 1.28 lukem inetprint(&inpcb.inp_faddr, inpcb.inp_fport, name,
159 1.28 lukem inpcb.inp_lport != inpcb.inp_fport);
160 1.28 lukem }
161 1.1 cgd if (istcp) {
162 1.1 cgd if (tcpcb.t_state < 0 || tcpcb.t_state >= TCP_NSTATES)
163 1.1 cgd printf(" %d", tcpcb.t_state);
164 1.1 cgd else
165 1.1 cgd printf(" %s", tcpstates[tcpcb.t_state]);
166 1.1 cgd }
167 1.1 cgd putchar('\n');
168 1.1 cgd }
169 1.1 cgd }
170 1.1 cgd
171 1.1 cgd /*
172 1.1 cgd * Dump TCP statistics structure.
173 1.1 cgd */
174 1.9 mycroft void
175 1.1 cgd tcp_stats(off, name)
176 1.8 cgd u_long off;
177 1.1 cgd char *name;
178 1.1 cgd {
179 1.1 cgd struct tcpstat tcpstat;
180 1.1 cgd
181 1.1 cgd if (off == 0)
182 1.1 cgd return;
183 1.1 cgd printf ("%s:\n", name);
184 1.9 mycroft kread(off, (char *)&tcpstat, sizeof (tcpstat));
185 1.9 mycroft
186 1.20 christos #define ps(f, m) if (tcpstat.f || sflag <= 1) \
187 1.20 christos printf(m, tcpstat.f)
188 1.9 mycroft #define p(f, m) if (tcpstat.f || sflag <= 1) \
189 1.9 mycroft printf(m, tcpstat.f, plural(tcpstat.f))
190 1.9 mycroft #define p2(f1, f2, m) if (tcpstat.f1 || tcpstat.f2 || sflag <= 1) \
191 1.9 mycroft printf(m, tcpstat.f1, plural(tcpstat.f1), tcpstat.f2, plural(tcpstat.f2))
192 1.20 christos #define p2s(f1, f2, m) if (tcpstat.f1 || tcpstat.f2 || sflag <= 1) \
193 1.20 christos printf(m, tcpstat.f1, plural(tcpstat.f1), tcpstat.f2)
194 1.9 mycroft #define p3(f, m) if (tcpstat.f || sflag <= 1) \
195 1.9 mycroft printf(m, tcpstat.f, plurales(tcpstat.f))
196 1.1 cgd
197 1.17 explorer p(tcps_sndtotal, "\t%lu packet%s sent\n");
198 1.1 cgd p2(tcps_sndpack,tcps_sndbyte,
199 1.17 explorer "\t\t%lu data packet%s (%lu byte%s)\n");
200 1.1 cgd p2(tcps_sndrexmitpack, tcps_sndrexmitbyte,
201 1.17 explorer "\t\t%lu data packet%s (%lu byte%s) retransmitted\n");
202 1.20 christos p2s(tcps_sndacks, tcps_delack,
203 1.17 explorer "\t\t%lu ack-only packet%s (%lu delayed)\n");
204 1.17 explorer p(tcps_sndurg, "\t\t%lu URG only packet%s\n");
205 1.17 explorer p(tcps_sndprobe, "\t\t%lu window probe packet%s\n");
206 1.17 explorer p(tcps_sndwinup, "\t\t%lu window update packet%s\n");
207 1.17 explorer p(tcps_sndctrl, "\t\t%lu control packet%s\n");
208 1.17 explorer p(tcps_rcvtotal, "\t%lu packet%s received\n");
209 1.17 explorer p2(tcps_rcvackpack, tcps_rcvackbyte, "\t\t%lu ack%s (for %lu byte%s)\n");
210 1.17 explorer p(tcps_rcvdupack, "\t\t%lu duplicate ack%s\n");
211 1.17 explorer p(tcps_rcvacktoomuch, "\t\t%lu ack%s for unsent data\n");
212 1.1 cgd p2(tcps_rcvpack, tcps_rcvbyte,
213 1.17 explorer "\t\t%lu packet%s (%lu byte%s) received in-sequence\n");
214 1.1 cgd p2(tcps_rcvduppack, tcps_rcvdupbyte,
215 1.17 explorer "\t\t%lu completely duplicate packet%s (%lu byte%s)\n");
216 1.17 explorer p(tcps_pawsdrop, "\t\t%lu old duplicate packet%s\n");
217 1.1 cgd p2(tcps_rcvpartduppack, tcps_rcvpartdupbyte,
218 1.17 explorer "\t\t%lu packet%s with some dup. data (%lu byte%s duped)\n");
219 1.1 cgd p2(tcps_rcvoopack, tcps_rcvoobyte,
220 1.17 explorer "\t\t%lu out-of-order packet%s (%lu byte%s)\n");
221 1.1 cgd p2(tcps_rcvpackafterwin, tcps_rcvbyteafterwin,
222 1.17 explorer "\t\t%lu packet%s (%lu byte%s) of data after window\n");
223 1.17 explorer p(tcps_rcvwinprobe, "\t\t%lu window probe%s\n");
224 1.17 explorer p(tcps_rcvwinupd, "\t\t%lu window update packet%s\n");
225 1.17 explorer p(tcps_rcvafterclose, "\t\t%lu packet%s received after close\n");
226 1.17 explorer p(tcps_rcvbadsum, "\t\t%lu discarded for bad checksum%s\n");
227 1.17 explorer p(tcps_rcvbadoff, "\t\t%lu discarded for bad header offset field%s\n");
228 1.20 christos ps(tcps_rcvshort, "\t\t%lu discarded because packet too short\n");
229 1.17 explorer p(tcps_connattempt, "\t%lu connection request%s\n");
230 1.17 explorer p(tcps_accepts, "\t%lu connection accept%s\n");
231 1.17 explorer p(tcps_connects, "\t%lu connection%s established (including accepts)\n");
232 1.1 cgd p2(tcps_closed, tcps_drops,
233 1.17 explorer "\t%lu connection%s closed (including %lu drop%s)\n");
234 1.17 explorer p(tcps_conndrops, "\t%lu embryonic connection%s dropped\n");
235 1.1 cgd p2(tcps_rttupdated, tcps_segstimed,
236 1.17 explorer "\t%lu segment%s updated rtt (of %lu attempt%s)\n");
237 1.17 explorer p(tcps_rexmttimeo, "\t%lu retransmit timeout%s\n");
238 1.17 explorer p(tcps_timeoutdrop, "\t\t%lu connection%s dropped by rexmit timeout\n");
239 1.27 thorpej p2(tcps_persisttimeo, tcps_persistdrops,
240 1.27 thorpej "\t%lu persist timeout%s (resulting in %lu dropped connection%s)\n");
241 1.17 explorer p(tcps_keeptimeo, "\t%lu keepalive timeout%s\n");
242 1.17 explorer p(tcps_keepprobe, "\t\t%lu keepalive probe%s sent\n");
243 1.17 explorer p(tcps_keepdrops, "\t\t%lu connection%s dropped by keepalive\n");
244 1.17 explorer p(tcps_predack, "\t%lu correct ACK header prediction%s\n");
245 1.17 explorer p(tcps_preddat, "\t%lu correct data packet header prediction%s\n");
246 1.17 explorer p3(tcps_pcbhashmiss, "\t%lu PCB hash miss%s\n");
247 1.20 christos ps(tcps_noport, "\t%lu dropped due to no socket\n");
248 1.24 thorpej p(tcps_connsdrained, "\t%lu connection%s drained due to memory shortage\n");
249 1.22 thorpej
250 1.22 thorpej p(tcps_badsyn, "\t%lu bad connection attempt%s\n");
251 1.22 thorpej ps(tcps_sc_added, "\t%lu SYN cache entries added\n");
252 1.22 thorpej p(tcps_sc_collisions, "\t\t%lu hash collision%s\n");
253 1.22 thorpej ps(tcps_sc_completed, "\t\t%lu completed\n");
254 1.22 thorpej ps(tcps_sc_aborted, "\t\t%lu aborted (no space to build PCB)\n");
255 1.22 thorpej ps(tcps_sc_timed_out, "\t\t%lu timed out\n");
256 1.22 thorpej ps(tcps_sc_overflowed, "\t\t%lu dropped due to overflow\n");
257 1.22 thorpej ps(tcps_sc_bucketoverflow, "\t\t%lu dropped due to bucket overflow\n");
258 1.22 thorpej ps(tcps_sc_reset, "\t\t%lu dropped due to RST\n");
259 1.22 thorpej ps(tcps_sc_unreach, "\t\t%lu dropped due to ICMP unreachable\n");
260 1.22 thorpej p(tcps_sc_dupesyn, "\t%lu duplicate SYN%s received for entries already in the cache\n");
261 1.22 thorpej p(tcps_sc_dropped, "\t%lu SYN%s dropped (no route or no space)\n");
262 1.15 mycroft
263 1.1 cgd #undef p
264 1.20 christos #undef ps
265 1.1 cgd #undef p2
266 1.20 christos #undef p2s
267 1.9 mycroft #undef p3
268 1.1 cgd }
269 1.1 cgd
270 1.1 cgd /*
271 1.1 cgd * Dump UDP statistics structure.
272 1.1 cgd */
273 1.9 mycroft void
274 1.1 cgd udp_stats(off, name)
275 1.8 cgd u_long off;
276 1.1 cgd char *name;
277 1.1 cgd {
278 1.1 cgd struct udpstat udpstat;
279 1.9 mycroft u_long delivered;
280 1.1 cgd
281 1.1 cgd if (off == 0)
282 1.1 cgd return;
283 1.15 mycroft printf("%s:\n", name);
284 1.9 mycroft kread(off, (char *)&udpstat, sizeof (udpstat));
285 1.15 mycroft
286 1.20 christos #define ps(f, m) if (udpstat.f || sflag <= 1) \
287 1.20 christos printf(m, udpstat.f)
288 1.9 mycroft #define p(f, m) if (udpstat.f || sflag <= 1) \
289 1.9 mycroft printf(m, udpstat.f, plural(udpstat.f))
290 1.15 mycroft #define p3(f, m) if (udpstat.f || sflag <= 1) \
291 1.15 mycroft printf(m, udpstat.f, plurales(udpstat.f))
292 1.15 mycroft
293 1.17 explorer p(udps_ipackets, "\t%lu datagram%s received\n");
294 1.20 christos ps(udps_hdrops, "\t%lu with incomplete header\n");
295 1.20 christos ps(udps_badlen, "\t%lu with bad data length field\n");
296 1.20 christos ps(udps_badsum, "\t%lu with bad checksum\n");
297 1.20 christos ps(udps_noport, "\t%lu dropped due to no socket\n");
298 1.17 explorer p(udps_noportbcast, "\t%lu broadcast/multicast datagram%s dropped due to no socket\n");
299 1.20 christos ps(udps_fullsock, "\t%lu dropped due to full socket buffers\n");
300 1.9 mycroft delivered = udpstat.udps_ipackets -
301 1.9 mycroft udpstat.udps_hdrops -
302 1.9 mycroft udpstat.udps_badlen -
303 1.9 mycroft udpstat.udps_badsum -
304 1.9 mycroft udpstat.udps_noport -
305 1.9 mycroft udpstat.udps_noportbcast -
306 1.9 mycroft udpstat.udps_fullsock;
307 1.9 mycroft if (delivered || sflag <= 1)
308 1.17 explorer printf("\t%lu delivered\n", delivered);
309 1.17 explorer p3(udps_pcbhashmiss, "\t%lu PCB hash miss%s\n");
310 1.17 explorer p(udps_opackets, "\t%lu datagram%s output\n");
311 1.15 mycroft
312 1.20 christos #undef ps
313 1.9 mycroft #undef p
314 1.15 mycroft #undef p3
315 1.1 cgd }
316 1.1 cgd
317 1.1 cgd /*
318 1.1 cgd * Dump IP statistics structure.
319 1.1 cgd */
320 1.9 mycroft void
321 1.1 cgd ip_stats(off, name)
322 1.8 cgd u_long off;
323 1.1 cgd char *name;
324 1.1 cgd {
325 1.1 cgd struct ipstat ipstat;
326 1.1 cgd
327 1.1 cgd if (off == 0)
328 1.1 cgd return;
329 1.9 mycroft kread(off, (char *)&ipstat, sizeof (ipstat));
330 1.9 mycroft printf("%s:\n", name);
331 1.9 mycroft
332 1.20 christos #define ps(f, m) if (ipstat.f || sflag <= 1) \
333 1.20 christos printf(m, ipstat.f)
334 1.9 mycroft #define p(f, m) if (ipstat.f || sflag <= 1) \
335 1.9 mycroft printf(m, ipstat.f, plural(ipstat.f))
336 1.9 mycroft
337 1.17 explorer p(ips_total, "\t%lu total packet%s received\n");
338 1.17 explorer p(ips_badsum, "\t%lu bad header checksum%s\n");
339 1.20 christos ps(ips_toosmall, "\t%lu with size smaller than minimum\n");
340 1.20 christos ps(ips_tooshort, "\t%lu with data size < data length\n");
341 1.20 christos ps(ips_toolong, "\t%lu with length > max ip packet size\n");
342 1.20 christos ps(ips_badhlen, "\t%lu with header length < data size\n");
343 1.20 christos ps(ips_badlen, "\t%lu with data length < header length\n");
344 1.20 christos ps(ips_badoptions, "\t%lu with bad options\n");
345 1.20 christos ps(ips_badvers, "\t%lu with incorrect version number\n");
346 1.29 matt p(ips_fragments, "\t%lu fragment%s received");
347 1.17 explorer p(ips_fragdropped, "\t%lu fragment%s dropped (dup or out of space)\n");
348 1.17 explorer p(ips_badfrags, "\t%lu malformed fragment%s dropped\n");
349 1.17 explorer p(ips_fragtimeout, "\t%lu fragment%s dropped after timeout\n");
350 1.17 explorer p(ips_reassembled, "\t%lu packet%s reassembled ok\n");
351 1.17 explorer p(ips_delivered, "\t%lu packet%s for this host\n");
352 1.17 explorer p(ips_noproto, "\t%lu packet%s for unknown/unsupported protocol\n");
353 1.29 matt p(ips_forward, "\t%lu packet%s forwarded");
354 1.29 matt p(ips_fastforward, " (%lu packet%s fast forwarded)");
355 1.29 matt if (ipstat.ips_forward || sflag <= 1)
356 1.29 matt putchar('\n');
357 1.17 explorer p(ips_cantforward, "\t%lu packet%s not forwardable\n");
358 1.17 explorer p(ips_redirectsent, "\t%lu redirect%s sent\n");
359 1.17 explorer p(ips_localout, "\t%lu packet%s sent from this host\n");
360 1.17 explorer p(ips_rawout, "\t%lu packet%s sent with fabricated ip header\n");
361 1.17 explorer p(ips_odropped, "\t%lu output packet%s dropped due to no bufs, etc.\n");
362 1.17 explorer p(ips_noroute, "\t%lu output packet%s discarded due to no route\n");
363 1.17 explorer p(ips_fragmented, "\t%lu output datagram%s fragmented\n");
364 1.17 explorer p(ips_ofragments, "\t%lu fragment%s created\n");
365 1.17 explorer p(ips_cantfrag, "\t%lu datagram%s that can't be fragmented\n");
366 1.20 christos #undef ps
367 1.9 mycroft #undef p
368 1.1 cgd }
369 1.1 cgd
370 1.1 cgd static char *icmpnames[] = {
371 1.1 cgd "echo reply",
372 1.1 cgd "#1",
373 1.1 cgd "#2",
374 1.1 cgd "destination unreachable",
375 1.1 cgd "source quench",
376 1.1 cgd "routing redirect",
377 1.1 cgd "#6",
378 1.1 cgd "#7",
379 1.1 cgd "echo",
380 1.1 cgd "#9",
381 1.1 cgd "#10",
382 1.1 cgd "time exceeded",
383 1.1 cgd "parameter problem",
384 1.1 cgd "time stamp",
385 1.1 cgd "time stamp reply",
386 1.1 cgd "information request",
387 1.1 cgd "information request reply",
388 1.1 cgd "address mask request",
389 1.1 cgd "address mask reply",
390 1.1 cgd };
391 1.1 cgd
392 1.1 cgd /*
393 1.1 cgd * Dump ICMP statistics.
394 1.1 cgd */
395 1.9 mycroft void
396 1.1 cgd icmp_stats(off, name)
397 1.8 cgd u_long off;
398 1.1 cgd char *name;
399 1.1 cgd {
400 1.1 cgd struct icmpstat icmpstat;
401 1.23 lukem int i, first;
402 1.1 cgd
403 1.1 cgd if (off == 0)
404 1.1 cgd return;
405 1.9 mycroft kread(off, (char *)&icmpstat, sizeof (icmpstat));
406 1.9 mycroft printf("%s:\n", name);
407 1.9 mycroft
408 1.9 mycroft #define p(f, m) if (icmpstat.f || sflag <= 1) \
409 1.9 mycroft printf(m, icmpstat.f, plural(icmpstat.f))
410 1.9 mycroft
411 1.17 explorer p(icps_error, "\t%lu call%s to icmp_error\n");
412 1.9 mycroft p(icps_oldicmp,
413 1.19 neil "\t%lu error%s not generated because old message was icmp\n");
414 1.1 cgd for (first = 1, i = 0; i < ICMP_MAXTYPE + 1; i++)
415 1.1 cgd if (icmpstat.icps_outhist[i] != 0) {
416 1.1 cgd if (first) {
417 1.1 cgd printf("\tOutput histogram:\n");
418 1.1 cgd first = 0;
419 1.1 cgd }
420 1.17 explorer printf("\t\t%s: %lu\n", icmpnames[i],
421 1.1 cgd icmpstat.icps_outhist[i]);
422 1.1 cgd }
423 1.17 explorer p(icps_badcode, "\t%lu message%s with bad code fields\n");
424 1.17 explorer p(icps_tooshort, "\t%lu message%s < minimum length\n");
425 1.17 explorer p(icps_checksum, "\t%lu bad checksum%s\n");
426 1.17 explorer p(icps_badlen, "\t%lu message%s with bad length\n");
427 1.1 cgd for (first = 1, i = 0; i < ICMP_MAXTYPE + 1; i++)
428 1.1 cgd if (icmpstat.icps_inhist[i] != 0) {
429 1.1 cgd if (first) {
430 1.1 cgd printf("\tInput histogram:\n");
431 1.1 cgd first = 0;
432 1.1 cgd }
433 1.17 explorer printf("\t\t%s: %lu\n", icmpnames[i],
434 1.1 cgd icmpstat.icps_inhist[i]);
435 1.1 cgd }
436 1.17 explorer p(icps_reflect, "\t%lu message response%s generated\n");
437 1.9 mycroft #undef p
438 1.6 brezak }
439 1.6 brezak
440 1.6 brezak /*
441 1.9 mycroft * Dump IGMP statistics structure.
442 1.6 brezak */
443 1.6 brezak void
444 1.6 brezak igmp_stats(off, name)
445 1.8 cgd u_long off;
446 1.6 brezak char *name;
447 1.6 brezak {
448 1.6 brezak struct igmpstat igmpstat;
449 1.6 brezak
450 1.6 brezak if (off == 0)
451 1.6 brezak return;
452 1.9 mycroft kread(off, (char *)&igmpstat, sizeof (igmpstat));
453 1.9 mycroft printf("%s:\n", name);
454 1.9 mycroft
455 1.9 mycroft #define p(f, m) if (igmpstat.f || sflag <= 1) \
456 1.9 mycroft printf(m, igmpstat.f, plural(igmpstat.f))
457 1.9 mycroft #define py(f, m) if (igmpstat.f || sflag <= 1) \
458 1.9 mycroft printf(m, igmpstat.f, igmpstat.f != 1 ? "ies" : "y")
459 1.17 explorer p(igps_rcv_total, "\t%lu message%s received\n");
460 1.17 explorer p(igps_rcv_tooshort, "\t%lu message%s received with too few bytes\n");
461 1.17 explorer p(igps_rcv_badsum, "\t%lu message%s received with bad checksum\n");
462 1.17 explorer py(igps_rcv_queries, "\t%lu membership quer%s received\n");
463 1.17 explorer py(igps_rcv_badqueries, "\t%lu membership quer%s received with invalid field(s)\n");
464 1.17 explorer p(igps_rcv_reports, "\t%lu membership report%s received\n");
465 1.17 explorer p(igps_rcv_badreports, "\t%lu membership report%s received with invalid field(s)\n");
466 1.17 explorer p(igps_rcv_ourreports, "\t%lu membership report%s received for groups to which we belong\n");
467 1.17 explorer p(igps_snd_reports, "\t%lu membership report%s sent\n");
468 1.9 mycroft #undef p
469 1.9 mycroft #undef py
470 1.1 cgd }
471 1.1 cgd
472 1.1 cgd /*
473 1.1 cgd * Pretty print an Internet address (net address + port).
474 1.1 cgd * If the nflag was specified, use numbers instead of names.
475 1.1 cgd */
476 1.9 mycroft void
477 1.28 lukem inetprint(in, port, proto, numeric)
478 1.23 lukem struct in_addr *in;
479 1.28 lukem u_int16_t port;
480 1.28 lukem const char *proto;
481 1.28 lukem int numeric;
482 1.1 cgd {
483 1.1 cgd struct servent *sp = 0;
484 1.9 mycroft char line[80], *cp;
485 1.1 cgd int width;
486 1.1 cgd
487 1.32 mrg (void)snprintf(line, sizeof line, "%.*s.",
488 1.32 mrg (Aflag && !numeric) ? 12 : 16, inetname(in));
489 1.23 lukem cp = strchr(line, '\0');
490 1.28 lukem if (!numeric && port)
491 1.1 cgd sp = getservbyport((int)port, proto);
492 1.1 cgd if (sp || port == 0)
493 1.32 mrg (void)snprintf(cp, cp - line, "%.8s", sp ? sp->s_name : "*");
494 1.1 cgd else
495 1.32 mrg (void)snprintf(cp, cp - line, "%u", ntohs(port));
496 1.1 cgd width = Aflag ? 18 : 22;
497 1.32 mrg (void)printf(" %-*.*s", width, width, line);
498 1.1 cgd }
499 1.1 cgd
500 1.1 cgd /*
501 1.1 cgd * Construct an Internet address representation.
502 1.9 mycroft * If the nflag has been supplied, give
503 1.1 cgd * numeric value, otherwise try for symbolic name.
504 1.1 cgd */
505 1.1 cgd char *
506 1.9 mycroft inetname(inp)
507 1.9 mycroft struct in_addr *inp;
508 1.1 cgd {
509 1.23 lukem char *cp;
510 1.1 cgd static char line[50];
511 1.1 cgd struct hostent *hp;
512 1.1 cgd struct netent *np;
513 1.1 cgd static char domain[MAXHOSTNAMELEN + 1];
514 1.1 cgd static int first = 1;
515 1.1 cgd
516 1.1 cgd if (first && !nflag) {
517 1.1 cgd first = 0;
518 1.31 mrg if (gethostname(domain, sizeof domain) == 0) {
519 1.31 mrg domain[sizeof(domain) - 1] = '\0';
520 1.31 mrg if ((cp = strchr(domain, '.')))
521 1.31 mrg (void) strcpy(domain, cp + 1);
522 1.31 mrg else
523 1.31 mrg domain[0] = 0;
524 1.31 mrg } else
525 1.1 cgd domain[0] = 0;
526 1.1 cgd }
527 1.1 cgd cp = 0;
528 1.9 mycroft if (!nflag && inp->s_addr != INADDR_ANY) {
529 1.9 mycroft int net = inet_netof(*inp);
530 1.9 mycroft int lna = inet_lnaof(*inp);
531 1.1 cgd
532 1.1 cgd if (lna == INADDR_ANY) {
533 1.1 cgd np = getnetbyaddr(net, AF_INET);
534 1.1 cgd if (np)
535 1.1 cgd cp = np->n_name;
536 1.1 cgd }
537 1.1 cgd if (cp == 0) {
538 1.9 mycroft hp = gethostbyaddr((char *)inp, sizeof (*inp), AF_INET);
539 1.1 cgd if (hp) {
540 1.23 lukem if ((cp = strchr(hp->h_name, '.')) &&
541 1.1 cgd !strcmp(cp + 1, domain))
542 1.1 cgd *cp = 0;
543 1.1 cgd cp = hp->h_name;
544 1.1 cgd }
545 1.1 cgd }
546 1.1 cgd }
547 1.9 mycroft if (inp->s_addr == INADDR_ANY)
548 1.32 mrg strncpy(line, "*", sizeof line);
549 1.1 cgd else if (cp)
550 1.32 mrg strncpy(line, cp, sizeof line);
551 1.1 cgd else {
552 1.9 mycroft inp->s_addr = ntohl(inp->s_addr);
553 1.1 cgd #define C(x) ((x) & 0xff)
554 1.32 mrg (void)snprintf(line, sizeof line, "%u.%u.%u.%u",
555 1.32 mrg C(inp->s_addr >> 24), C(inp->s_addr >> 16),
556 1.32 mrg C(inp->s_addr >> 8), C(inp->s_addr));
557 1.32 mrg #undef C
558 1.1 cgd }
559 1.32 mrg line[sizeof(line) - 1] = '\0';
560 1.1 cgd return (line);
561 1.30 thorpej }
562 1.30 thorpej
563 1.30 thorpej /*
564 1.30 thorpej * Dump the contents of a TCP PCB.
565 1.30 thorpej */
566 1.30 thorpej void
567 1.30 thorpej tcp_dump(pcbaddr)
568 1.30 thorpej u_long pcbaddr;
569 1.30 thorpej {
570 1.30 thorpej struct tcpcb tcpcb;
571 1.30 thorpej int i;
572 1.30 thorpej
573 1.30 thorpej kread(pcbaddr, (char *)&tcpcb, sizeof(tcpcb));
574 1.30 thorpej
575 1.30 thorpej printf("TCP Protocol Control Block at 0x%08lx:\n\n", pcbaddr);
576 1.30 thorpej
577 1.30 thorpej printf("Timers:\n");
578 1.30 thorpej for (i = 0; i < TCPT_NTIMERS; i++)
579 1.30 thorpej printf("\t%s: %u", tcptimers[i], tcpcb.t_timer[i]);
580 1.30 thorpej printf("\n\n");
581 1.30 thorpej
582 1.30 thorpej if (tcpcb.t_state < 0 || tcpcb.t_state >= TCP_NSTATES)
583 1.30 thorpej printf("State: %d", tcpcb.t_state);
584 1.30 thorpej else
585 1.30 thorpej printf("State: %s", tcpstates[tcpcb.t_state]);
586 1.30 thorpej printf(", flags 0x%x, inpcb 0x%lx\n\n", tcpcb.t_flags,
587 1.30 thorpej (u_long)tcpcb.t_inpcb);
588 1.30 thorpej
589 1.30 thorpej printf("rxtshift %d, rxtcur %d, dupacks %d\n", tcpcb.t_rxtshift,
590 1.30 thorpej tcpcb.t_rxtcur, tcpcb.t_dupacks);
591 1.30 thorpej printf("peermss %u, ourmss %u, segsz %u\n\n", tcpcb.t_peermss,
592 1.30 thorpej tcpcb.t_ourmss, tcpcb.t_segsz);
593 1.30 thorpej
594 1.30 thorpej printf("snd_una %u, snd_nxt %u, snd_up %u\n",
595 1.30 thorpej tcpcb.snd_una, tcpcb.snd_nxt, tcpcb.snd_up);
596 1.30 thorpej printf("snd_wl1 %u, snd_wl2 %u, iss %u, snd_wnd %lu\n\n",
597 1.30 thorpej tcpcb.snd_wl1, tcpcb.snd_wl2, tcpcb.iss, tcpcb.snd_wnd);
598 1.30 thorpej
599 1.30 thorpej printf("rcv_wnd %lu, rcv_nxt %u, rcv_up %u, irs %u\n\n",
600 1.30 thorpej tcpcb.rcv_wnd, tcpcb.rcv_nxt, tcpcb.rcv_up, tcpcb.irs);
601 1.30 thorpej
602 1.30 thorpej printf("rcv_adv %u, snd_max %u, snd_cwnd %lu, snd_ssthresh %lu\n",
603 1.30 thorpej tcpcb.rcv_adv, tcpcb.snd_max, tcpcb.snd_cwnd, tcpcb.snd_ssthresh);
604 1.30 thorpej
605 1.30 thorpej printf("idle %d, rtt %d, rtseq %u, srtt %d, rttvar %d, rttmin %d, "
606 1.30 thorpej "max_sndwnd %lu\n\n", tcpcb.t_idle, tcpcb.t_rtt, tcpcb.t_rtseq,
607 1.30 thorpej tcpcb.t_srtt, tcpcb.t_rttvar, tcpcb.t_rttmin, tcpcb.max_sndwnd);
608 1.30 thorpej
609 1.30 thorpej printf("oobflags %d, iobc %d, softerror %d\n\n", tcpcb.t_oobflags,
610 1.30 thorpej tcpcb.t_iobc, tcpcb.t_softerror);
611 1.30 thorpej
612 1.30 thorpej printf("snd_scale %d, rcv_scale %d, req_r_scale %d, req_s_scale %d\n",
613 1.30 thorpej tcpcb.snd_scale, tcpcb.rcv_scale, tcpcb.request_r_scale,
614 1.30 thorpej tcpcb.requested_s_scale);
615 1.30 thorpej printf("ts_recent %u, ts_regent_age %d, last_ack_sent %u\n",
616 1.30 thorpej tcpcb.ts_recent, tcpcb.ts_recent_age, tcpcb.last_ack_sent);
617 1.1 cgd }
618