DTrace: отслеживаем падение приложений

#!/usr/sbin/dtrace -qws

#pragma D option strsize=500

 * Copyright 2005 Sun Microsystems, Inc. ALL RIGHTS RESERVED

 * Use of this software is authorized pursuant to the terms of the license found at

 * http://developers.sun.com/berkeley_license.html 

 * By Greg Nakhimovsky and Morgan Herrington, Sun MDE, April 2005.

 *

 * This DTrace script can be run as a daemon started by root

 * (perhaps on boot with an RC script like /etc/rc2.d/S97app_crash),

 * or it can be run by any user with appropriate DTrace permissions 

 * (in which case it would work for that user's applications only).

  * args[1]->pr_pid is the signal-receiving process id; 

 * Only react if it is the same as the sending process id (pid).

proc:::signal-send

/(args[2] == SIGBUS || args[2] == SIGSEGV) && 

                         pid == args[1]->pr_pid/

{

  stop();

  /* If $ON_APP_CRASH_INVOKE is defined in pid space, 

   * run user-provided script as $USER  */

  system(

    "%s=%d; %s=%d; %s=%d; %s=%s; %s %s %s %s %s %s %s %s %s",

    "CRASH_PID",  pid,

    "CRASH_UID",  uid,

    "DTRACE_UID", $uid,

    "PROG",       execname,

    "SCRIPT=`/bin/pargs -e $CRASH_PID | ",

    "  /bin/grep ON_APP_CRASH_INVOKE | /bin/cut -d= -f2`;",

    "[ -z \"$SCRIPT\" -o ! -x \"$SCRIPT\" ] && exit 0;",

    "if [ $DTRACE_UID -eq 0 -a $CRASH_UID -ne 0 ] ; then",

    "  USER_NAME=`/bin/getent passwd $CRASH_UID|/bin/cut -d: -f1`;",

    "  /bin/su $USER_NAME -c \"$SCRIPT $CRASH_PID $PROG\";",

    "else ",

    "  $SCRIPT $CRASH_PID $PROG; ",

    "fi"

  );

  /* Continue normal processing */

  system("/bin/prun %d", pid);

}

#!/bin/sh

# Template for a user-defined script invoked on application crash.

# Copyright 2005 Sun Microsystems, Inc. ALL RIGHTS RESERVED

# Use of this software is authorized pursuant to the terms of the license found at

# http://developers.sun.com/berkeley_license.html 

# By Greg Nakhimovsky and Morgan Herrington, Sun MDE, April 2005.

# $1 = process id of the crashing process.

# $2 = name of the crashing program.

PID=$1

PROG=$2

APPCRASH_OUT=/var/tmp/appcrash.$PROG.$PID

# Unset ON_APP_CRASH_INVOKE to prevent recursion

ON_APP_CRASH_INVOKE=

export ON_APP_CRASH_INVOKE

# Function to print and run a given command:

print_run()

{

  COMMAND="$@"

  echo "\n> $COMMAND" >> $APPCRASH_OUT 2>&1

  # "eval" is needed to recognize the pipe ("|") character:

  eval $COMMAND       >> $APPCRASH_OUT 2>&1

}

# Write a message to console if we have the permissions:

PROCESS_OWNER=`/usr/xpg4/bin/id -u -n`

CONSOLE_OWNER=`/bin/ls -lL /dev/console | /bin/awk '{ print $3; }'`

if [ $PROCESS_OWNER = "root" -o $PROCESS_OWNER = $CONSOLE_OWNER ] ; then

  echo "`/bin/date`: $PROG (pid=$PID) has crashed, see $APPCRASH_OUT" > /dev/console 2>&1

fi

echo "Output from runme_on_app_crash" > $APPCRASH_OUT 2>&1

echo "Program: $PROG"   >> $APPCRASH_OUT 2>&1

echo "Process ID: $PID" >> $APPCRASH_OUT 2>&1

echo "\nApplication Debugging Data" >> $APPCRASH_OUT 2>&1

echo   "--------------------------" >> $APPCRASH_OUT 2>&1

print_run "/bin/pstack $PID"

print_run "/bin/pmap -x $PID"

print_run "/bin/pldd $PID"

print_run "/bin/ptree $PID"

print_run "/bin/pargs -ace $PID"

print_run "/bin/plimit -m $PID"

print_run "/bin/pwdx $PID"

print_run "/bin/pfiles $PID"

# You may want to add "pcred" if interested in user ids:

# print_run "/bin/pcred $PID"

echo "\nSystem Configuration Data" >> $APPCRASH_OUT 2>&1

echo   "-------------------------" >> $APPCRASH_OUT 2>&1

print_run "/bin/uname -a"

print_run "/bin/cat /etc/release"

print_run "/usr/sbin/psrinfo -v"

print_run "/usr/sbin/swap -s"

print_run "/usr/sbin/swap -l"

print_run "/usr/sbin/prtconf|/bin/head -2"

print_run "/bin/showrev -p|/bin/cut -d' ' -f2|/bin/sort"

# For more system configuration commands (such as graphics

# configuration) see script "check_config" described in

# http://www.sun.com/technical-computing/ISV/PTCFaq.html#CHECK_CONFIG

# If desired, add application version/build information like this:

# if [ $PROG = "foo" ]; then

#   VER=`cat /opt/foo/txt/version.txt`

# elif [ $PROG = "bar" ]; then

#   # Use an appropriate method to get the version of program "bar"

# else

#   VER="Unknown"

# fi

# print_run "echo Application Version/Build = $VER"

# Optionally, you can automatically email the result to your

# tech support organization, like this:

# /bin/cat $APPCRASH_OUT | /bin/mailx -s \

#   "$PROG crash: pid $PID" support@whatever.com

% cat test1.c

#include 

#include 

static void sub2(int *p)

{

  int i;

  i = *p;

}

static void sub(int *p)

{

  sub2(p);

}

int main()

{

  int *p=NULL;

  sub(p);

  return 0;

}