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

   1 # btraceback.dbx
   2 #
   3 # Copyright (C) 2000-2015 Kern Sibbald
   4 # License: BSD 2-Clause; see file LICENSE-FOSS
   5 #
   6
   7 dbxenv language_mode c++
   8
   9 echo "fail_time ==> \c"; print -l (char *)fail_time
  10 echo "exename ==> \c"; print -l (char *)exename
  11 echo "exepath ==> \c"; print -l (char *)exepath
  12 echo "assert_msg ==> \c"; print -l (char *)assert_msg
  13 echo "db_engine_name ==> \c"; print -l (char *)db_engine_name
  14 echo "version ==> \c"; print -l (char *)version
  15 echo "host_os ==> \c"; print -l (char *)host_os
  16 echo "distname ==> \c"; print -l (char *)distname
  17 echo "distver ==> \c"; print -l (char *)distver
  18 echo "dist_name ==> \c"; print -l (char *)dist_name
  19
  20 echo "******** RUNNING THREADS/LWPS:"
  21 echo
  22 lwps
  23
  24 echo
  25 echo
  26 echo "******** STACK TRACE OF CURRENT THREAD/LWP:"
  27 echo
  28 where
  29
  30 echo
  31 echo
  32 echo "******** VARIABLES DUMP OF CURRENT THREAD/LWP:"
  33 echo
  34 dump
  35
  36 for LWP in $(lwps | sh sed -e 's/.*@//' -e 's/ .*//'); do
  37 (
  38    if lwp l@$LWP; then
  39       echo "******************************************"
  40       echo
  41       echo "******** STACK TRACE OF THREAD/LWP ${LWP}:"
  42       echo
  43       where
  44
  45       echo
  46       echo "******** VARIABLES DUMP OF THREAD/LWP ${LWP}:"
  47       echo
  48       dump
  49       echo "******************************************"
  50    fi
  51 )
  52 done
  53 quit