Home | History | Annotate | Line # | Download | only in netstat
inet.c revision 1.30
      1  1.30   thorpej /*	$NetBSD: inet.c,v 1.30 1998/06/03 02:41:10 thorpej 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.30   thorpej __RCSID("$NetBSD: inet.c,v 1.30 1998/06/03 02:41:10 thorpej 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.28     lukem 	sprintf(line, "%.*s.", (Aflag && !numeric) ? 12 : 16, inetname(in));
    488  1.23     lukem 	cp = strchr(line, '\0');
    489  1.28     lukem 	if (!numeric && port)
    490   1.1       cgd 		sp = getservbyport((int)port, proto);
    491   1.1       cgd 	if (sp || port == 0)
    492   1.1       cgd 		sprintf(cp, "%.8s", sp ? sp->s_name : "*");
    493   1.1       cgd 	else
    494  1.28     lukem 		sprintf(cp, "%u", ntohs(port));
    495   1.1       cgd 	width = Aflag ? 18 : 22;
    496   1.1       cgd 	printf(" %-*.*s", width, width, line);
    497   1.1       cgd }
    498   1.1       cgd 
    499   1.1       cgd /*
    500   1.1       cgd  * Construct an Internet address representation.
    501   1.9   mycroft  * If the nflag has been supplied, give
    502   1.1       cgd  * numeric value, otherwise try for symbolic name.
    503   1.1       cgd  */
    504   1.1       cgd char *
    505   1.9   mycroft inetname(inp)
    506   1.9   mycroft 	struct in_addr *inp;
    507   1.1       cgd {
    508  1.23     lukem 	char *cp;
    509   1.1       cgd 	static char line[50];
    510   1.1       cgd 	struct hostent *hp;
    511   1.1       cgd 	struct netent *np;
    512   1.1       cgd 	static char domain[MAXHOSTNAMELEN + 1];
    513   1.1       cgd 	static int first = 1;
    514   1.1       cgd 
    515   1.1       cgd 	if (first && !nflag) {
    516   1.1       cgd 		first = 0;
    517   1.1       cgd 		if (gethostname(domain, MAXHOSTNAMELEN) == 0 &&
    518  1.23     lukem 		    (cp = strchr(domain, '.')))
    519   1.1       cgd 			(void) strcpy(domain, cp + 1);
    520   1.1       cgd 		else
    521   1.1       cgd 			domain[0] = 0;
    522   1.1       cgd 	}
    523   1.1       cgd 	cp = 0;
    524   1.9   mycroft 	if (!nflag && inp->s_addr != INADDR_ANY) {
    525   1.9   mycroft 		int net = inet_netof(*inp);
    526   1.9   mycroft 		int lna = inet_lnaof(*inp);
    527   1.1       cgd 
    528   1.1       cgd 		if (lna == INADDR_ANY) {
    529   1.1       cgd 			np = getnetbyaddr(net, AF_INET);
    530   1.1       cgd 			if (np)
    531   1.1       cgd 				cp = np->n_name;
    532   1.1       cgd 		}
    533   1.1       cgd 		if (cp == 0) {
    534   1.9   mycroft 			hp = gethostbyaddr((char *)inp, sizeof (*inp), AF_INET);
    535   1.1       cgd 			if (hp) {
    536  1.23     lukem 				if ((cp = strchr(hp->h_name, '.')) &&
    537   1.1       cgd 				    !strcmp(cp + 1, domain))
    538   1.1       cgd 					*cp = 0;
    539   1.1       cgd 				cp = hp->h_name;
    540   1.1       cgd 			}
    541   1.1       cgd 		}
    542   1.1       cgd 	}
    543   1.9   mycroft 	if (inp->s_addr == INADDR_ANY)
    544   1.1       cgd 		strcpy(line, "*");
    545   1.1       cgd 	else if (cp)
    546   1.1       cgd 		strcpy(line, cp);
    547   1.1       cgd 	else {
    548   1.9   mycroft 		inp->s_addr = ntohl(inp->s_addr);
    549   1.1       cgd #define C(x)	((x) & 0xff)
    550   1.9   mycroft 		sprintf(line, "%u.%u.%u.%u", C(inp->s_addr >> 24),
    551   1.9   mycroft 		    C(inp->s_addr >> 16), C(inp->s_addr >> 8), C(inp->s_addr));
    552   1.1       cgd 	}
    553   1.1       cgd 	return (line);
    554  1.30   thorpej }
    555  1.30   thorpej 
    556  1.30   thorpej /*
    557  1.30   thorpej  * Dump the contents of a TCP PCB.
    558  1.30   thorpej  */
    559  1.30   thorpej void
    560  1.30   thorpej tcp_dump(pcbaddr)
    561  1.30   thorpej 	u_long pcbaddr;
    562  1.30   thorpej {
    563  1.30   thorpej 	struct tcpcb tcpcb;
    564  1.30   thorpej 	int i;
    565  1.30   thorpej 
    566  1.30   thorpej 	kread(pcbaddr, (char *)&tcpcb, sizeof(tcpcb));
    567  1.30   thorpej 
    568  1.30   thorpej 	printf("TCP Protocol Control Block at 0x%08lx:\n\n", pcbaddr);
    569  1.30   thorpej 
    570  1.30   thorpej 	printf("Timers:\n");
    571  1.30   thorpej 	for (i = 0; i < TCPT_NTIMERS; i++)
    572  1.30   thorpej 		printf("\t%s: %u", tcptimers[i], tcpcb.t_timer[i]);
    573  1.30   thorpej 	printf("\n\n");
    574  1.30   thorpej 
    575  1.30   thorpej 	if (tcpcb.t_state < 0 || tcpcb.t_state >= TCP_NSTATES)
    576  1.30   thorpej 		printf("State: %d", tcpcb.t_state);
    577  1.30   thorpej 	else
    578  1.30   thorpej 		printf("State: %s", tcpstates[tcpcb.t_state]);
    579  1.30   thorpej 	printf(", flags 0x%x, inpcb 0x%lx\n\n", tcpcb.t_flags,
    580  1.30   thorpej 	    (u_long)tcpcb.t_inpcb);
    581  1.30   thorpej 
    582  1.30   thorpej 	printf("rxtshift %d, rxtcur %d, dupacks %d\n", tcpcb.t_rxtshift,
    583  1.30   thorpej 	    tcpcb.t_rxtcur, tcpcb.t_dupacks);
    584  1.30   thorpej 	printf("peermss %u, ourmss %u, segsz %u\n\n", tcpcb.t_peermss,
    585  1.30   thorpej 	    tcpcb.t_ourmss, tcpcb.t_segsz);
    586  1.30   thorpej 
    587  1.30   thorpej 	printf("snd_una %u, snd_nxt %u, snd_up %u\n",
    588  1.30   thorpej 	    tcpcb.snd_una, tcpcb.snd_nxt, tcpcb.snd_up);
    589  1.30   thorpej 	printf("snd_wl1 %u, snd_wl2 %u, iss %u, snd_wnd %lu\n\n",
    590  1.30   thorpej 	    tcpcb.snd_wl1, tcpcb.snd_wl2, tcpcb.iss, tcpcb.snd_wnd);
    591  1.30   thorpej 
    592  1.30   thorpej 	printf("rcv_wnd %lu, rcv_nxt %u, rcv_up %u, irs %u\n\n",
    593  1.30   thorpej 	    tcpcb.rcv_wnd, tcpcb.rcv_nxt, tcpcb.rcv_up, tcpcb.irs);
    594  1.30   thorpej 
    595  1.30   thorpej 	printf("rcv_adv %u, snd_max %u, snd_cwnd %lu, snd_ssthresh %lu\n",
    596  1.30   thorpej 	    tcpcb.rcv_adv, tcpcb.snd_max, tcpcb.snd_cwnd, tcpcb.snd_ssthresh);
    597  1.30   thorpej 
    598  1.30   thorpej 	printf("idle %d, rtt %d, rtseq %u, srtt %d, rttvar %d, rttmin %d, "
    599  1.30   thorpej 	    "max_sndwnd %lu\n\n", tcpcb.t_idle, tcpcb.t_rtt, tcpcb.t_rtseq,
    600  1.30   thorpej 	    tcpcb.t_srtt, tcpcb.t_rttvar, tcpcb.t_rttmin, tcpcb.max_sndwnd);
    601  1.30   thorpej 
    602  1.30   thorpej 	printf("oobflags %d, iobc %d, softerror %d\n\n", tcpcb.t_oobflags,
    603  1.30   thorpej 	    tcpcb.t_iobc, tcpcb.t_softerror);
    604  1.30   thorpej 
    605  1.30   thorpej 	printf("snd_scale %d, rcv_scale %d, req_r_scale %d, req_s_scale %d\n",
    606  1.30   thorpej 	    tcpcb.snd_scale, tcpcb.rcv_scale, tcpcb.request_r_scale,
    607  1.30   thorpej 	    tcpcb.requested_s_scale);
    608  1.30   thorpej 	printf("ts_recent %u, ts_regent_age %d, last_ack_sent %u\n",
    609  1.30   thorpej 	    tcpcb.ts_recent, tcpcb.ts_recent_age, tcpcb.last_ack_sent);
    610   1.1       cgd }
    611