Change Byline

[bacula/bacula] / bacula / scripts / btraceback.dbx

diff --git a/bacula/scripts/btraceback.dbx b/bacula/scripts/btraceback.dbx
index 91a7d95a78f8d4eb7cc7fa62b885013be511f2cd..8c7fe860eda2a4a5cd5e1091021e02f8f31fe275 100644 (file)
--- a/bacula/scripts/btraceback.dbx
+++ b/bacula/scripts/btraceback.dbx
@@ -1,37 +1,48 @@
 # btraceback.dbx
 
-echo "******** RUNNING LWPS/THREADS:"
+dbxenv language_mode c++
+
+echo "exename ==> \c"; print -l (char *)exename
+echo "exepath ==> \c"; print -l (char *)exepath
+echo "catalog_db ==> \c"; print -l (char *)catalog_db
+echo "version ==> \c"; print -l (char *)version
+echo "host_os ==> \c"; print -l (char *)host_os
+echo "distname ==> \c"; print -l (char *)distname
+echo "distver ==> \c"; print -l (char *)distver
+echo "dist_name ==> \c"; print -l (char *)dist_name
+echo "beef ==> \c"; print -l (int)beef
+
+echo "******** RUNNING THREADS/LWPS:"
 echo
 lwps
 
 echo
 echo
-echo "******** STACK TRACE OF CURRENT LWP:"
+echo "******** STACK TRACE OF CURRENT THREAD/LWP:"
 echo
 where
 
 echo
 echo
-echo "******** VARIABLES DUMP OF CURRENT LWP:"
+echo "******** VARIABLES DUMP OF CURRENT THREAD/LWP:"
 echo
 dump
 
-for LWP in 1 2 3 4 5 6 7 8; do
-       (
-       if lwp l@$LWP; then
-               echo 
-               echo 
-               echo "******** STACK TRACE OF LWP ${LWP}:"
-               echo
-               where
+for LWP in $(lwps | sh sed -e 's/.*@//' -e 's/ .*//'); do
+(
+   if lwp l@$LWP; then
+      echo "******************************************"
+      echo
+      echo "******** STACK TRACE OF THREAD/LWP ${LWP}:"
+      echo
+      where
 
-               echo
-               echo
-               echo "******** VARIABLES DUMP OF LWP ${LWP}:"
-               echo
-               dump
-               
-       fi
-       )
+      echo
+      echo "******** VARIABLES DUMP OF THREAD/LWP ${LWP}:"
+      echo
+      dump
+      echo "******************************************"
+   fi
+)
 done
 quit