First attempt at using mdb on Solaris instead of dbx which isn't standard on most...

diff --git a/bacula/scripts/btraceback.in b/bacula/scripts/btraceback.in
index 1e7ae9e988117f2173bc5bcf5cb1dc2e70a71a3b..9b9a4882c73f151137aa1cb2b3bd6209302a9ee8 100755 (executable)
--- 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 (file)
index 0000000..1e3f9aa
--- /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