Home | History | Annotate | Download | only in proc
      1 #
      2 # CDDL HEADER START
      3 #
      4 # The contents of this file are subject to the terms of the
      5 # Common Development and Distribution License (the "License").
      6 # You may not use this file except in compliance with the License.
      7 #
      8 # You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
      9 # or http://www.opensolaris.org/os/licensing.
     10 # See the License for the specific language governing permissions
     11 # and limitations under the License.
     12 #
     13 # When distributing Covered Code, include this CDDL HEADER in each
     14 # file and include the License file at usr/src/OPENSOLARIS.LICENSE.
     15 # If applicable, add the following below this CDDL HEADER, with the
     16 # fields enclosed by brackets "[]" replaced with your own identifying
     17 # information: Portions Copyright [yyyy] [name of copyright owner]
     18 #
     19 # CDDL HEADER END
     20 #
     21 
     22 #
     23 # Copyright 2007 Sun Microsystems, Inc.  All rights reserved.
     24 # Use is subject to license terms.
     25 #
     26 # ident	"%Z%%M%	%I%	%E% SMI"
     27 
     28 #
     29 # This script tests that -- if a exec(2) fails -- the proc:::exec probe fires,
     30 # followed by the proc:::exec-success probe (in a successful exec(2)).  To
     31 # circumvent any potential shell cleverness, this script generates exec
     32 # failure by generating a file with a bogus interpreter.  (It seems unlikely
     33 # that a shell -- regardless of how clever it claims to be -- would bother to
     34 # validate the interpreter before exec'ing.)
     35 #
     36 # If this fails, the script will run indefinitely; it relies on the harness
     37 # to time it out.
     38 #
     39 script()
     40 {
     41 	$dtrace -s /dev/stdin <<EOF
     42 	proc:::exec
     43 	/curpsinfo->pr_ppid == $child && args[0] == "$badexec"/
     44 	{
     45 		self->exec = 1;
     46 	}
     47 
     48 	proc:::exec-failure
     49 	/self->exec/
     50 	{
     51 		exit(0);
     52 	}
     53 EOF
     54 }
     55 
     56 sleeper()
     57 {
     58 	while true; do
     59 		/usr/bin/sleep 1
     60 		$badexec
     61 	done
     62 }
     63 
     64 if [ $# != 1 ]; then
     65 	echo expected one argument: '<'dtrace-path'>'
     66 	exit 2
     67 fi
     68 
     69 badexec=/tmp/execfail.ksh.$$
     70 dtrace=$1
     71 
     72 cat > $badexec <<EOF
     73 #!/this_is_a_bogus_interpreter
     74 EOF
     75 
     76 chmod +x $badexec
     77 
     78 sleeper &
     79 child=$!
     80 script
     81 status=$?
     82 
     83 kill $child
     84 rm $badexec
     85 
     86 exit $status
     87