From: erickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Mon, 25 Jul 2005 23:40:49 +0000 (+0000)
Subject: added a line of hopefull helpful debug output
X-Git-Tag: osrf_rel_2_0_1~1442
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=e9f98c070d29c67e61a03380823b7b12d8acf86a;p=OpenSRF.git

added a line of hopefull helpful debug output


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

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;
 	}