From: Mike Rylander <mrylander@gmail.com>
Date: Wed, 11 Sep 2013 20:02:24 +0000 (-0400)
Subject: LP#1339190: support disconnection for SIP multiplex purposes
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=3ffe1142136ef6906b3a3bd968ec2b16b798ab42;p=evergreen%2Fpines.git

LP#1339190: support disconnection for SIP multiplex purposes

This patch adds a disconnect method to close the OpenSRF
connect; this method is invoked only when the Net::Server::Multiplex
personality is in use.

Signed-off-by: Mike Rylander <mrylander@gmail.com>
Signed-off-by: Galen Charlton <gmc@esilibrary.com>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/SIP.pm b/Open-ILS/src/perlmods/lib/OpenILS/SIP.pm
index a98420029f..8098d84a9d 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/SIP.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/SIP.pm
@@ -42,6 +42,10 @@ use constant {
     SIP_DATETIME => "%Y%m%d    %H%M%S",
 };
 
+sub disconnect {
+     OpenSRF::Transport::PeerHandle->retrieve->disconnect
+}
+
 sub new {
     my ($class, $institution, $login) = @_;
     my $type = ref($class) || $class;