1*10e6dadfSbrendan#!/usr/bin/ksh
2*10e6dadfSbrendan#
3*10e6dadfSbrendan# CDDL HEADER START
4*10e6dadfSbrendan#
5*10e6dadfSbrendan# The contents of this file are subject to the terms of the
6*10e6dadfSbrendan# Common Development and Distribution License (the "License").
7*10e6dadfSbrendan# You may not use this file except in compliance with the License.
8*10e6dadfSbrendan#
9*10e6dadfSbrendan# You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10*10e6dadfSbrendan# or http://www.opensolaris.org/os/licensing.
11*10e6dadfSbrendan# See the License for the specific language governing permissions
12*10e6dadfSbrendan# and limitations under the License.
13*10e6dadfSbrendan#
14*10e6dadfSbrendan# When distributing Covered Code, include this CDDL HEADER in each
15*10e6dadfSbrendan# file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16*10e6dadfSbrendan# If applicable, add the following below this CDDL HEADER, with the
17*10e6dadfSbrendan# fields enclosed by brackets "[]" replaced with your own identifying
18*10e6dadfSbrendan# information: Portions Copyright [yyyy] [name of copyright owner]
19*10e6dadfSbrendan#
20*10e6dadfSbrendan# CDDL HEADER END
21*10e6dadfSbrendan#
22*10e6dadfSbrendan
23*10e6dadfSbrendan#
24*10e6dadfSbrendan# Copyright 2008 Sun Microsystems, Inc.  All rights reserved.
25*10e6dadfSbrendan# Use is subject to license terms.
26*10e6dadfSbrendan#
27*10e6dadfSbrendan#pragma ident	"%Z%%M%	%I%	%E% SMI"
28*10e6dadfSbrendan
29*10e6dadfSbrendan#
30*10e6dadfSbrendan# Test ip:::{send,receive} of IPv4 ICMP to a remote host.
31*10e6dadfSbrendan#
32*10e6dadfSbrendan# This may fail due to:
33*10e6dadfSbrendan#
34*10e6dadfSbrendan# 1. A change to the ip stack breaking expected probe behavior,
35*10e6dadfSbrendan#    which is the reason we are testing.
36*10e6dadfSbrendan# 2. No physical network interface is plumbed and up.
37*10e6dadfSbrendan# 3. No other hosts on this subnet are reachable.
38*10e6dadfSbrendan# 4. An unrelated ICMP between these hosts was traced by accident.
39*10e6dadfSbrendan#
40*10e6dadfSbrendan
41*10e6dadfSbrendanif (( $# != 1 )); then
42*10e6dadfSbrendan        print -u2 "expected one argument: <dtrace-path>"
43*10e6dadfSbrendan        exit 2
44*10e6dadfSbrendanfi
45*10e6dadfSbrendan
46*10e6dadfSbrendandtrace=$1
47*10e6dadfSbrendangetaddr=./get.ipv4remote.pl
48*10e6dadfSbrendan
49*10e6dadfSbrendanif [[ ! -x $getaddr ]]; then
50*10e6dadfSbrendan	print -u2 "could not find or execute sub program: $getaddr"
51*10e6dadfSbrendan	exit 3
52*10e6dadfSbrendanfi
53*10e6dadfSbrendan$getaddr | read source dest
54*10e6dadfSbrendanif (( $? != 0 )); then
55*10e6dadfSbrendan	exit 4
56*10e6dadfSbrendanfi
57*10e6dadfSbrendan
58*10e6dadfSbrendan$dtrace -c "/usr/sbin/ping $dest 3" -qs /dev/stdin <<EOF | \
59*10e6dadfSbrendan    grep -v 'is alive' | sort -n
60*10e6dadfSbrendanip:::send
61*10e6dadfSbrendan/args[2]->ip_saddr == "$source" && args[2]->ip_daddr == "$dest" &&
62*10e6dadfSbrendan    args[4]->ipv4_protocol == IPPROTO_ICMP/
63*10e6dadfSbrendan{
64*10e6dadfSbrendan	printf("1 ip:::send    (");
65*10e6dadfSbrendan	printf("args[2]: %d %d, ", args[2]->ip_ver, args[2]->ip_plength);
66*10e6dadfSbrendan	printf("args[4]: %d %d %d %d %d)\n",
67*10e6dadfSbrendan	    args[4]->ipv4_ver, args[4]->ipv4_length, args[4]->ipv4_flags,
68*10e6dadfSbrendan	    args[4]->ipv4_offset, args[4]->ipv4_ttl);
69*10e6dadfSbrendan}
70*10e6dadfSbrendan
71*10e6dadfSbrendanip:::receive
72*10e6dadfSbrendan/args[2]->ip_saddr == "$dest" && args[2]->ip_daddr == "$source" &&
73*10e6dadfSbrendan    args[4]->ipv4_protocol == IPPROTO_ICMP/
74*10e6dadfSbrendan{
75*10e6dadfSbrendan	printf("2 ip:::receive (");
76*10e6dadfSbrendan	printf("args[2]: %d %d, ", args[2]->ip_ver, args[2]->ip_plength);
77*10e6dadfSbrendan	printf("args[4]: %d %d %d %d %d)\n",
78*10e6dadfSbrendan	    args[4]->ipv4_ver, args[4]->ipv4_length, args[4]->ipv4_flags,
79*10e6dadfSbrendan	    args[4]->ipv4_offset, args[4]->ipv4_ttl);
80*10e6dadfSbrendan}
81*10e6dadfSbrendanEOF
82