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