xref: /titanic_52/usr/src/cmd/dtrace/demo/tcp/tcpbytes.d (revision 9cd928fe5e3ea4e05f64cfb380beb54b2623e7dc)
1  #!/usr/sbin/dtrace -s
2  /*
3   * CDDL HEADER START
4   *
5   * The contents of this file are subject to the terms of the
6   * Common Development and Distribution License (the "License").
7   * You may not use this file except in compliance with the License.
8   *
9   * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10   * or http://www.opensolaris.org/os/licensing.
11   * See the License for the specific language governing permissions
12   * and limitations under the License.
13   *
14   * When distributing Covered Code, include this CDDL HEADER in each
15   * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16   * If applicable, add the following below this CDDL HEADER, with the
17   * fields enclosed by brackets "[]" replaced with your own identifying
18   * information: Portions Copyright [yyyy] [name of copyright owner]
19   *
20   * CDDL HEADER END
21   */
22  /*
23   * Copyright (c) 2010, Oracle and/or its affiliates. All rights reserved.
24   */
25  
26  tcp:::receive
27  {
28  	@bytes[args[2]->ip_saddr, args[4]->tcp_dport] =
29  	    sum(args[2]->ip_plength - args[4]->tcp_offset);
30  }
31  
32  tcp:::send
33  {
34  	@bytes[args[2]->ip_daddr, args[4]->tcp_sport] =
35  	    sum(args[2]->ip_plength - args[4]->tcp_offset);
36  }
37