1178476Sjb# 2178476Sjb# CDDL HEADER START 3178476Sjb# 4178476Sjb# The contents of this file are subject to the terms of the 5178476Sjb# Common Development and Distribution License (the "License"). 6178476Sjb# You may not use this file except in compliance with the License. 7178476Sjb# 8178476Sjb# You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE 9178476Sjb# or http://www.opensolaris.org/os/licensing. 10178476Sjb# See the License for the specific language governing permissions 11178476Sjb# and limitations under the License. 12178476Sjb# 13178476Sjb# When distributing Covered Code, include this CDDL HEADER in each 14178476Sjb# file and include the License file at usr/src/OPENSOLARIS.LICENSE. 15178476Sjb# If applicable, add the following below this CDDL HEADER, with the 16178476Sjb# fields enclosed by brackets "[]" replaced with your own identifying 17178476Sjb# information: Portions Copyright [yyyy] [name of copyright owner] 18178476Sjb# 19178476Sjb# CDDL HEADER END 20178476Sjb# 21178476Sjb 22178476Sjb# 23178476Sjb# Copyright 2007 Sun Microsystems, Inc. All rights reserved. 24178476Sjb# Use is subject to license terms. 25178476Sjb# 26178476Sjb# ident "%Z%%M% %I% %E% SMI" 27178476Sjb 28178476Sjb# 29178476Sjb# This script tests that -- if a exec(2) fails -- the proc:::exec probe fires, 30178476Sjb# followed by the proc:::exec-success probe (in a successful exec(2)). To 31178476Sjb# circumvent any potential shell cleverness, this script generates exec 32178476Sjb# failure by generating a file with a bogus interpreter. (It seems unlikely 33178476Sjb# that a shell -- regardless of how clever it claims to be -- would bother to 34178476Sjb# validate the interpreter before exec'ing.) 35178476Sjb# 36178476Sjb# If this fails, the script will run indefinitely; it relies on the harness 37178476Sjb# to time it out. 38178476Sjb# 39178476Sjbscript() 40178476Sjb{ 41178476Sjb $dtrace -s /dev/stdin <<EOF 42178476Sjb proc:::exec 43178476Sjb /curpsinfo->pr_ppid == $child && args[0] == "$badexec"/ 44178476Sjb { 45178476Sjb self->exec = 1; 46178476Sjb } 47178476Sjb 48211545Srpaulo proc:::exec-failure 49178476Sjb /self->exec/ 50178476Sjb { 51178476Sjb exit(0); 52178476Sjb } 53178476SjbEOF 54178476Sjb} 55178476Sjb 56178476Sjbsleeper() 57178476Sjb{ 58178476Sjb while true; do 59178534Sjb /bin/sleep 1 60178476Sjb $badexec 61178476Sjb done 62178476Sjb} 63178476Sjb 64178476Sjbif [ $# != 1 ]; then 65178476Sjb echo expected one argument: '<'dtrace-path'>' 66178476Sjb exit 2 67178476Sjbfi 68178476Sjb 69178476Sjbbadexec=/tmp/execfail.ksh.$$ 70178476Sjbdtrace=$1 71178476Sjb 72178476Sjbcat > $badexec <<EOF 73178476Sjb#!/this_is_a_bogus_interpreter 74178476SjbEOF 75178476Sjb 76178476Sjbchmod +x $badexec 77178476Sjb 78178476Sjbsleeper & 79178476Sjbchild=$! 80178476Sjbscript 81178476Sjbstatus=$? 82178476Sjb 83178476Sjbkill $child 84178476Sjbrm $badexec 85178476Sjb 86178476Sjbexit $status 87