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/LWPS:"
  16 echo
  17 lwps
  18
  19 echo
  20 echo
  21 echo "******** STACK TRACE OF CURRENT THREAD/LWP:"
  22 echo
  23 where
  24
  25 echo
  26 echo
  27 echo "******** VARIABLES DUMP OF CURRENT THREAD/LWP:"
  28 echo
  29 dump
  30
  31 for LWP in $(lwps | sh sed -e 's/.*@//' -e 's/ .*//'); do
  32 (
  33    if lwp l@$LWP; then
  34       echo "******************************************"
  35       echo
  36       echo "******** STACK TRACE OF THREAD/LWP ${LWP}:"
  37       echo
  38       where
  39
  40       echo
  41       echo "******** VARIABLES DUMP OF THREAD/LWP ${LWP}:"
  42       echo
  43       dump
  44       echo "******************************************"
  45    fi
  46 )
  47 done
  48 quit