110e6dadfSbrendan#!/usr/bin/ksh
210e6dadfSbrendan#
310e6dadfSbrendan# CDDL HEADER START
410e6dadfSbrendan#
510e6dadfSbrendan# The contents of this file are subject to the terms of the
610e6dadfSbrendan# Common Development and Distribution License (the "License").
710e6dadfSbrendan# You may not use this file except in compliance with the License.
810e6dadfSbrendan#
910e6dadfSbrendan# You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
1010e6dadfSbrendan# or http://www.opensolaris.org/os/licensing.
1110e6dadfSbrendan# See the License for the specific language governing permissions
1210e6dadfSbrendan# and limitations under the License.
1310e6dadfSbrendan#
1410e6dadfSbrendan# When distributing Covered Code, include this CDDL HEADER in each
1510e6dadfSbrendan# file and include the License file at usr/src/OPENSOLARIS.LICENSE.
1610e6dadfSbrendan# If applicable, add the following below this CDDL HEADER, with the
1710e6dadfSbrendan# fields enclosed by brackets "[]" replaced with your own identifying
1810e6dadfSbrendan# information: Portions Copyright [yyyy] [name of copyright owner]
1910e6dadfSbrendan#
2010e6dadfSbrendan# CDDL HEADER END
2110e6dadfSbrendan#
2210e6dadfSbrendan
2310e6dadfSbrendan#
2410e6dadfSbrendan# Copyright 2008 Sun Microsystems, Inc.  All rights reserved.
2510e6dadfSbrendan# Use is subject to license terms.
2610e6dadfSbrendan#
2710e6dadfSbrendan
2810e6dadfSbrendan#
2910e6dadfSbrendan# Test ip:::{send,receive} of IPv4 ICMP to a remote host.
3010e6dadfSbrendan#
3110e6dadfSbrendan# This may fail due to:
3210e6dadfSbrendan#
3310e6dadfSbrendan# 1. A change to the ip stack breaking expected probe behavior,
3410e6dadfSbrendan#    which is the reason we are testing.
3510e6dadfSbrendan# 2. No physical network interface is plumbed and up.
3610e6dadfSbrendan# 3. No other hosts on this subnet are reachable.
3710e6dadfSbrendan# 4. An unrelated ICMP between these hosts was traced by accident.
3810e6dadfSbrendan#
3910e6dadfSbrendan
4010e6dadfSbrendanif (( $# != 1 )); then
4110e6dadfSbrendan        print -u2 "expected one argument: <dtrace-path>"
4210e6dadfSbrendan        exit 2
4310e6dadfSbrendanfi
4410e6dadfSbrendan
4510e6dadfSbrendandtrace=$1
4610e6dadfSbrendangetaddr=./get.ipv4remote.pl
4710e6dadfSbrendan
4810e6dadfSbrendanif [[ ! -x $getaddr ]]; then
4910e6dadfSbrendan	print -u2 "could not find or execute sub program: $getaddr"
5010e6dadfSbrendan	exit 3
5110e6dadfSbrendanfi
5210e6dadfSbrendan$getaddr | read source dest
5310e6dadfSbrendanif (( $? != 0 )); then
5410e6dadfSbrendan	exit 4
5510e6dadfSbrendanfi
5610e6dadfSbrendan
57*f6517207SRobert Mustacchi$dtrace -c "/usr/sbin/ping -D $dest 3" -qs /dev/stdin <<EOF | \
5810e6dadfSbrendan    grep -v 'is alive' | sort -n
5910e6dadfSbrendanip:::send
6010e6dadfSbrendan/args[2]->ip_saddr == "$source" && args[2]->ip_daddr == "$dest" &&
6110e6dadfSbrendan    args[4]->ipv4_protocol == IPPROTO_ICMP/
6210e6dadfSbrendan{
6310e6dadfSbrendan	printf("1 ip:::send    (");
6410e6dadfSbrendan	printf("args[2]: %d %d, ", args[2]->ip_ver, args[2]->ip_plength);
6510e6dadfSbrendan	printf("args[4]: %d %d %d %d %d)\n",
6610e6dadfSbrendan	    args[4]->ipv4_ver, args[4]->ipv4_length, args[4]->ipv4_flags,
6710e6dadfSbrendan	    args[4]->ipv4_offset, args[4]->ipv4_ttl);
6810e6dadfSbrendan}
6910e6dadfSbrendan
7010e6dadfSbrendanip:::receive
7110e6dadfSbrendan/args[2]->ip_saddr == "$dest" && args[2]->ip_daddr == "$source" &&
7210e6dadfSbrendan    args[4]->ipv4_protocol == IPPROTO_ICMP/
7310e6dadfSbrendan{
7410e6dadfSbrendan	printf("2 ip:::receive (");
7510e6dadfSbrendan	printf("args[2]: %d %d, ", args[2]->ip_ver, args[2]->ip_plength);
7610e6dadfSbrendan	printf("args[4]: %d %d %d %d %d)\n",
7710e6dadfSbrendan	    args[4]->ipv4_ver, args[4]->ipv4_length, args[4]->ipv4_flags,
7810e6dadfSbrendan	    args[4]->ipv4_offset, args[4]->ipv4_ttl);
7910e6dadfSbrendan}
8010e6dadfSbrendanEOF
81