From: Marco van Wieringen Date: Thu, 8 Apr 2010 16:50:51 +0000 (+0200) Subject: First attempt at using mdb on Solaris instead of dbx which isn't standard on most... X-Git-Tag: Release-5.2.1~1515 X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=19ee7c3eed01820b4215026363845f7757b15c86;p=bacula%2Fbacula First attempt at using mdb on Solaris instead of dbx which isn't standard on most current Solaris versions. --- diff --git a/bacula/scripts/btraceback.in b/bacula/scripts/btraceback.in index 1e7ae9e988..9b9a4882c7 100755 --- a/bacula/scripts/btraceback.in +++ b/bacula/scripts/btraceback.in @@ -14,7 +14,11 @@ PNAME="${PNAME} on `hostname`" WD="$3" if test `uname -s` = SunOS ; then gcore -o ${WD}/${PNAME} $2 - dbx $1 $2 <@scriptdir@/btraceback.dbx >${WD}/bacula.$2.traceback 2>&1 + if [ -x /usr/bin/mdb ]; then + mdb -u -p $2 <@scriptdir@/btraceback.mdb >${WD}/bacula.$2.traceback 2>&1 + else + dbx $1 $2 <@scriptdir@/btraceback.dbx >${WD}/bacula.$2.traceback 2>&1 + fi cat ${WD}/bacula.$2.traceback \ | @sbindir@/bsmtp -h @smtp_host@ -f @dump_email@ -s "Bacula DBX traceback of ${PNAME}" @dump_email@ else diff --git a/bacula/scripts/btraceback.mdb b/bacula/scripts/btraceback.mdb new file mode 100644 index 0000000000..1e3f9aa4ca --- /dev/null +++ b/bacula/scripts/btraceback.mdb @@ -0,0 +1,24 @@ +# btraceback.mdb + +$G +::echo "******** RUNNING LWPS/THREADS:" +::echo +::walk thread + +::echo +::echo +::echo "******** STACK TRACE OF CURRENT LWP:" +::echo +$C + +::echo +::echo +::echo "******** VARIABLES DUMP OF CURRENT LWP:" +::echo + +::echo "******** STACK TRACE OF LWPS:" +::walk thread | ::findstack + +::echo "******** VARIABLES DUMP OF LWPS:" + +::quit