#!/bin/ksh
#set -xv
# Author: Gopinath Rao
#         Developer Technical Support
#         Sun Microsystems Inc

#
# Description:
#    adv_analysis() called when the advanced analysis option is chosen 
#    on startup
# Function performs advanced crash dump analysis
# It calls basic_analysis() to do a basic analysis first

adv_analysis()
{

  basic_analysis

mdb -k $g <<EOA

=nn"** /etc/system entries **"
="-------------------------"
::system

=nn"** IPC identifiers **"
="----------------------"
::ipcs -l

=nn"** Callout table **"
="----------------------"
::callout

=nn"** Modinfo output **"
="----------------------"
::modinfo

=nn"** Prtconf output **"
="----------------------"
::prtconf -v

=nn"** Filesystem output **"
="----------------------"
::fsinfo

=nn"** Kmastat output **"
="----------------------"
::kmastat
EOA

}

#
# Description:
#   special_cases() called when advanced analysis option is chosen
# Function checks
#  a) Whether it was a forced crash dump and if so runs the "threadlist"
#     macro and the output is written to the file "threadlist.txt" 
#  b) Whether the kmem_flags is set to greater than 0xf, and runs the
#     "findleaks" macro. Its output is written to the file 
#     "memleaks.txt".
 
special_cases()
{

  kmem_flags=`echo "kmem_flags/D"| mdb -k unix.$g vmcore.$g| cut -f2 -d":"`
  if [ $kmem_flags -ge 15 ]
  then
  echo -n "Do you want to run the findleaks macro(y/n)(default:n)?"
  read s
  if [ "$s" != "n" ]
  then
  echo "Running findleaks Macro"
mdb -k $g <<EOA 1>memleaks.txt
=nn"Findleaks output"
="-----------------"
::findleaks
EOA
  fi
  fi
 
  panicstring=`echo "*panicstr/s" | mdb -k unix.$g vmcore.$g | cut -f2 -d":"`
  if [ "$panicstring" = "zero" ] 
  then
mdb -k $g <<EOA 1>threadlist.txt
=nn"Threadlist output"
="------------------"
\$<threadlist
EOA
  fi

  adv_analysis > outfile.`date |cut -f4 -d" "`

}

#
# Description:
#    basic_analysis() called when the advanced analysis option is chosen 
#    on startup
# Function performs basic crash dump analysis

basic_analysis()
{

  echo "Working....."

cat <<EOC

  ******************************************************************************
  System Crash Dump Analysis Output                     MDeBug Rev 1.0
  `date`                   Files: unix.$g vmcore.$g
  ******************************************************************************

EOC

mdb -k $g <<EOA

  =nn"Time of Boot"
  ="---------------"
  ::eval *boot_time=y
  =nn"Time of Crash"
  ="---------------"
  ::eval *time=y

  =nn"System Information"
  ="--------------------"
  \$<utsname
  =nn"Panic String"
  ="--------------"
  *panicstr/s

  =nn"Stack Backtrace"
  ="-----------------"
  \$c

  =nn"**  Per CPU information  **"
  ="---------------------------"
  ncpus/X
  ncpus_online/X
  =nn

  =nn"** Cpuinfo output **"
  ="------------------ -"
  ::cpuinfo -v
  =nn
  =nn"**  CPU structures  **"
  ="--------------------"
  \$<cpus
  =nn
  =nn"**  Process table  **"
  ="--------------------"
  ::ps -f
  =nn
  ="**  Msgbuf  **"
  ="------------"
  \$<msgbuf
EOA

}

#
# Description:
#    appcore_analysis() called when the application core analysis option is 
#    chosen on startup and the operating system version is Solaris 8 OE or
#    version.
# Function performs basic application core dump analysis

appcore_analysis()
{

cat <<EOC

  ******************************************************************************
  Application core Dump Analysis Output                     MDeBug Rev 1.0
  `date`                   Files: $bin  $cor
  ******************************************************************************

EOC

mdb $bin $cor <<EOA

  =nn"** Core file status **"
  ="------------------------"
  ::status

  =nn"** Thread stack(\$c) **"
  ="----------------------"
  \$c

  =nn"** Shared objects **"
  ="----------------------"
  ::objects

EOA

}

### Main body of the script

# set up the PATH to the commands used inside this script
# /usr/ucb set to get the echo behaviour without carriage return

PATH=/usr/ucb:/usr/bin:$PATH
export PATH

if [ "$#" -lt 1 ]; then
		
	
	echo "Start of the script"
	tput clear
	
	echo "               Welcome to the MDeBug Session                "
	echo "               ******************************               "
	echo "                                                            "
	echo "Select one of the following:"
	
	echo "         1. Run MDeBug against a Kernel Crash dump"
	echo "         2. Run MDeBug against an Application core"
	echo "         3. Exit                                  "
	echo -n "Enter your selection:"
	
	
	  read sel
	
	case $sel in
	1)
	  if [ `uname -r | cut -f2 -d"."` -lt 8 ]
	  then
	  echo "OS release needs to be atleast Solaris 5.8 to use this option, Aborting !"
	  exit
	  fi
	
	  echo -n "Do you want basic or advanced crash dump analysis[b/a](default:b)?"
	  read n
	
	  echo -n "Please enter the suffix digit for your crash dump file:"
	  read g
	
	  if [ "$g" = "" ]
	  then
	  echo "You did not specify the crash dump file suffix, Aborting!"
	  exit
	  fi
	
	  if [ "$n" = "b" ] || [ "$n" = "" ]
	  then
	  basic_analysis > outfile.`date |cut -f4 -d" "`
	  echo ""
	  echo "Done!"
	  elif [ "$n" = "a" ]
	  then
	  special_cases
	  echo ""
	  echo "Done!"
	  fi
	;;
	
	2)
	  echo -n "Enter the binary name which generated the core:"
	  read bin
	  echo -n "Enter the core file name:"
	  read cor
	   
	  if [ `uname -r | cut -f2 -d"."` -lt 9 ]
	  then
	  echo "OS release needs to be Solaris 5.9 to use this option, Aborting !"
	  exit
	  fi
	
	  appcore_analysis > outfile.appcore
	
	  thr_model=`echo "::status" | mdb $bin $cor | grep thread | cut -f2 -d":"`
	  if [ "$thr_model" = " multi-threaded" ]
	  then
	mdb $bin $cor  <<EOA 1>>outfile.appcore
	=nn"Thread stack for MT app"
	="------------------------"
	  ::walk thread | ::findstack
EOA
	  fi
	  echo "Done!"
	;;
	
	3)
	  echo "Bye !"
	  exit;;
	
	*)
	  echo "Invalid selection - Aborting !"
	;;
	
	esac
else
	# Take parameters from command-line
	case "$1" in
	2)
	  bin=$2
	  cor=$3
	  appcore_analysis
	
	  thr_model=`echo "::status" | mdb $bin $cor | grep thread | cut -f2 -d":"`
	  if [ "$thr_model" = " multi-threaded" ]
	  then
	mdb $bin $cor 2>/dev/null <<EOA
	=nn"Thread stack for MT app"
	="------------------------"
	  ::walk thread | ::findstack
EOA
	  fi
	;;
	3) exit 0 ;;
	*) echo "$1 not implemented, halting. " ;;
	esac
fi
# End of the script -- 02/21/2002 --grao