1#!/usr/sbin/dtrace -s
2/*
3 * tcpstat.d - print TCP statistics. Uses DTrace.
4 *
5 * This prints TCP statistics every second, retrieved from the MIB provider.
6 *
7 * $Id: tcpstat.d,v 1.1.1.1 2015/09/30 22:01:09 christos Exp $
8 *
9 * USAGE:	tcpstat.d
10 *
11 * FIELDS:
12 *		TCP_out		TCP bytes sent
13 *		TCP_outRe	TCP bytes retransmitted
14 *		TCP_in		TCP bytes received
15 *		TCP_inDup	TCP bytes received duplicated
16 *		TCP_inUn	TCP bytes received out of order
17 *
18 * The above TCP statistics are documented in the mib2_tcp struct
19 * in the /usr/include/inet/mib2.h file; and also in the mib provider
20 * chapter of the DTrace Guide, http://docs.sun.com/db/doc/817-6223.
21 *
22 * COPYRIGHT: Copyright (c) 2005 Brendan Gregg.
23 *
24 * CDDL HEADER START
25 *
26 *  The contents of this file are subject to the terms of the
27 *  Common Development and Distribution License, Version 1.0 only
28 *  (the "License").  You may not use this file except in compliance
29 *  with the License.
30 *
31 *  You can obtain a copy of the license at Docs/cddl1.txt
32 *  or http://www.opensolaris.org/os/licensing.
33 *  See the License for the specific language governing permissions
34 *  and limitations under the License.
35 *
36 * CDDL HEADER END
37 *
38 * 15-May-2005  Brendan Gregg   Created this.
39 * 15-May-2005	   "      "	Last update.
40 */
41
42#pragma D option quiet
43
44/*
45 * Declare Globals
46 */
47dtrace:::BEGIN
48{
49	TCP_out = 0; TCP_outRe = 0;
50	TCP_in = 0; TCP_inDup = 0; TCP_inUn = 0;
51	LINES = 20; line = 0;
52}
53
54/*
55 * Print Header
56 */
57profile:::tick-1sec { line--; }
58
59profile:::tick-1sec
60/line <= 0 /
61{
62	printf("%11s %11s %11s %11s %11s\n",
63	    "TCP_out", "TCP_outRe", "TCP_in", "TCP_inDup", "TCP_inUn");
64
65	line = LINES;
66}
67
68/*
69 * Save Data
70 */
71mib:::tcpOutDataBytes		{ TCP_out += arg0;   }
72mib:::tcpRetransBytes		{ TCP_outRe += arg0; }
73mib:::tcpInDataInorderBytes	{ TCP_in += arg0;    }
74mib:::tcpInDataDupBytes		{ TCP_inDup += arg0; }
75mib:::tcpInDataUnorderBytes	{ TCP_inUn += arg0;  }
76
77/*
78 * Print Output
79 */
80profile:::tick-1sec
81{
82	printf("%11d %11d %11d %11d %11d\n",
83	    TCP_out, TCP_outRe, TCP_in, TCP_inDup, TCP_inUn);
84
85	/* clear values */
86	TCP_out   = 0;
87	TCP_outRe = 0;
88	TCP_in    = 0;
89	TCP_inDup = 0;
90	TCP_inUn  = 0;
91}
92