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