From: miker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Sun, 24 Jul 2005 19:26:51 +0000 (+0000)
Subject: adding MethodException backtrace
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=3ff45708214a3d0bcbb69d4ed95cec1280b3c9fe;p=working%2FOpenSRF.git

adding MethodException backtrace


git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@419 9efc2488-bf62-4759-914b-345cdb29e865
---

diff --git a/src/perlmods/OpenSRF/Application.pm b/src/perlmods/OpenSRF/Application.pm
index d808c91..0688d01 100644
--- a/src/perlmods/OpenSRF/Application.pm
+++ b/src/perlmods/OpenSRF/Application.pm
@@ -152,11 +152,20 @@ sub handler {
 					$e = $e->stringify();
 				} 
 				my $sess_id = $session->session_id;
+
+				my $stack = "-=-=-=-=-=- Stack Backtrace (5) -=-=-=-=-=-\n";
+				for my $lvl ( 1 .. 5 ) {
+					my ($package, $filename, $line, $subroutine, $hasargs,
+					    $wantarray, $evaltext, $is_require, $hints, $bitmask) = caller($lvl);
+					$stack .= "PKG[$package]|FILE[$filename]|LINE[$line]|SUB[$subroutine]\n";
+				}
+				
 				$session->status(
 					OpenSRF::DomainObject::oilsMethodException->new(
 							statusCode	=> STATUS_INTERNALSERVERERROR(),
 							status		=> " *** Call to [$method_name] failed for session ".
-									   "[$sess_id], thread trace [".$appreq->threadTrace."]:\n$e"
+									   "[$sess_id], thread trace ".
+									   "[".$appreq->threadTrace."]:\n$e\n\n$stack"
 					)
 				);
 			};
@@ -243,7 +252,7 @@ sub register_method {
 
 	throw OpenSRF::DomainObject::oilsMethodException unless ($args{method});
 
-	$args{api_level} ||= 1;
+	$args{api_level} = 1 unless(defined($args{api_level}));
 	$args{stream} ||= 0;
 	$args{remote} ||= 0;
 	$args{package} ||= $app;