From a4c73f9f79231e0c3fc77190ff5571f389444079 Mon Sep 17 00:00:00 2001 From: erickson Date: Mon, 25 Jul 2005 01:34:06 +0000 Subject: [PATCH] added exception for when trying to send to non-existant recipient this will prevent some of the vague 'no app_session returned from server build' errors git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@421 9efc2488-bf62-4759-914b-345cdb29e865 --- src/perlmods/OpenSRF/Transport.pm | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/perlmods/OpenSRF/Transport.pm b/src/perlmods/OpenSRF/Transport.pm index f669dbe..09950fd 100644 --- a/src/perlmods/OpenSRF/Transport.pm +++ b/src/perlmods/OpenSRF/Transport.pm @@ -90,6 +90,12 @@ sub handler { my $body = $helper->get_body(); my $type = $helper->get_msg_type(); + + if (defined($type) and $type eq 'error') { + throw OpenSRF::EX::Session ("$remote_id IS NOT CONNECTED TO THE NETWORK!!!"); + + } + $logger->transport( "Transport building/retrieving session: $service, $remote_id, $sess_id", DEBUG ); -- 2.11.0