From e9f98c070d29c67e61a03380823b7b12d8acf86a Mon Sep 17 00:00:00 2001
From: erickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Mon, 25 Jul 2005 23:40:49 +0000
Subject: [PATCH] added a line of hopefull helpful debug output

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@430 9efc2488-bf62-4759-914b-345cdb29e865
---
 src/perlmods/OpenSRF/AppSession.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/src/perlmods/OpenSRF/AppSession.pm b/src/perlmods/OpenSRF/AppSession.pm
index 7762322..e7dbde3 100644
--- a/src/perlmods/OpenSRF/AppSession.pm
+++ b/src/perlmods/OpenSRF/AppSession.pm
@@ -96,6 +96,10 @@ sub server_build {
 	my $remote_id = shift;
 	my $service = shift;
 
+	warn "Missing args to server_build():\n" .
+		"sess_id: $sess_id, remote_id: $remote_id, service: $service\n" 
+		unless ($sess_id and $remote_id and $service);
+
 	return undef unless ($sess_id and $remote_id and $service);
 
 	if ( my $thingy = $class->find($sess_id) ) {
@@ -109,8 +113,13 @@ sub server_build {
 	if( $service eq "client" ) {
 		#throw OpenSRF::EX::PANIC ("Attempting to build a client session as a server" .
 		#	" Session ID [$sess_id], remote_id [$remote_id]");
+
+		warn "Attempting to build a client session as ".
+				"a server Session ID [$sess_id], remote_id [$remote_id]";
+
 		$logger->debug("Attempting to build a client session as ".
 				"a server Session ID [$sess_id], remote_id [$remote_id]", ERROR );
+
 		return undef;
 	}
 
-- 
2.11.0