git.sur5r.net Git - bacula/bacula/blob - bacula/scripts/btraceback.dbx

   1 # btraceback.dbx
   2
   3 dbxenv language_mode c++
   4
   5 echo "exename ==> \c"; print -l (char *)exename
   6 echo "exepath ==> \c"; print -l (char *)exepath
   7 echo "catalog_db ==> \c"; print -l (char *)catalog_db
   8 echo "version ==> \c"; print -l (char *)version
   9 echo "host_os ==> \c"; print -l (char *)host_os
  10 echo "distname ==> \c"; print -l (char *)distname
  11 echo "distver ==> \c"; print -l (char *)distver
  12 echo "dist_name ==> \c"; print -l (char *)dist_name
  13 echo "beef ==> \c"; print -l (int)beef
  14
  15 echo "******** RUNNING THREADS:"
  16 echo
  17 threads
  18
  19 echo
  20 echo
  21 echo "******** STACK TRACE OF CURRENT THREAD:"
  22 echo
  23 where
  24
  25 echo
  26 echo
  27 echo "******** VARIABLES DUMP OF CURRENT THREAD:"
  28 echo
  29 dump
  30
  31 for THREAD in $(threads | sh sed -e 's/.*@//' -e 's/ .*//'); do
  32         (
  33         if thread t@$THREAD; then
  34                 echo
  35                 echo
  36                 echo "******** STACK TRACE OF THREAD ${THREAD}:"
  37                 echo
  38                 where
  39
  40                 echo
  41                 echo
  42                 echo "******** VARIABLES DUMP OF THREAD ${THREAD}:"
  43                 echo
  44                 dump
  45
  46         fi
  47         )
  48 done
  49 quit