Small changes to btraceback script so on solaris we don't get strange errors as PNAME...

[bacula/bacula] / bacula / scripts / btraceback.in

diff --git a/bacula/scripts/btraceback.in b/bacula/scripts/btraceback.in
index 656e8b31efaddb8d3bed126d691e8a397ba5c3e1..959ce1544edbac2c97b0f82547adbbc7c1d15135 100755 (executable)
--- a/bacula/scripts/btraceback.in
+++ b/bacula/scripts/btraceback.in
@@ -7,13 +7,23 @@
 # Arguments to this script are
 #  $1 = path to executable
 #  $2 = main pid of running program to be traced back.
+#  $3 = working directory
 #
 PNAME=`basename $1`
-if test `uname -s` = SunOs ; then
-  gcore -o @working_dir@/${PNAME} $2
-  dbx $1 $2 <@scriptdir@/btraceback.dbx 2>&1 \
-   | @sbindir@/bsmtp -h @smtp_host@ -s "Bacula DBX traceback of ${PNAME}" @dump_email@
+WD="$3"
+if test `uname -s` = SunOS ; then
+   gcore -o ${WD}/${PNAME} $2
+   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
+   PNAME="${PNAME} on `hostname`"
+   cat ${WD}/bacula.$2.traceback \
+    | @sbindir@/bsmtp -h @smtp_host@ -f @dump_email@ -s "Bacula DBX traceback of ${PNAME}" @dump_email@
 else
-  gdb -quiet -batch -x @scriptdir@/btraceback.gdb $1 $2 2>&1 \
-   | @sbindir@/bsmtp -h @smtp_host@ -s "Bacula GDB traceback of ${PNAME}" @dump_email@
+   gdb -quiet -batch -x @scriptdir@/btraceback.gdb $1 $2 >${WD}/bacula.$2.traceback 2>&1
+   PNAME="${PNAME} on `hostname`"
+   cat ${WD}/bacula.$2.traceback \
+    | @sbindir@/bsmtp -h @smtp_host@ -f @dump_email@ -s "Bacula GDB traceback of ${PNAME}" @dump_email@
 fi