From: Mike Rylander <mrylander@gmail.com>
Date: Mon, 4 Aug 2014 13:26:56 +0000 (-0400)
Subject: LP#1042850: Add TCP-level keepalive
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=4b9f1594337b9ec08dcaa8dc3e55049d368fc0a5;p=working%2FSIPServer.git

LP#1042850: Add TCP-level keepalive

Some client TCP stacks fail to actually close down their sockets
all the way, leading to a pile up of stale backends that can never
go away.

So, we will use Linux's TCP_KEEPALIVE tuning capabilities to probe
the connection on a regular basis.  This should detect the half-
closed situation and let the backend shut itself down.

Signed-off-by: Mike Rylander <mrylander@gmail.com>
Signed-off-by: Bill Erickson <berick@esilibrary.com>
---

diff --git a/SIPServer.pm b/SIPServer.pm
index 4ea82c5..fa78be9 100755
--- a/SIPServer.pm
+++ b/SIPServer.pm
@@ -26,7 +26,7 @@ use Sys::Syslog qw(syslog);
 use Net::Server::PreFork;
 use Net::Server::Proto;
 use IO::Socket::INET;
-use Socket qw(:crlf);
+use Socket qw(:crlf SOL_SOCKET SO_KEEPALIVE IPPROTO_TCP TCP_KEEPALIVE);
 use Data::Dumper;		# For debugging
 require UNIVERSAL::require;
 
@@ -113,6 +113,14 @@ sub process_request {
     my ($sockaddr, $port, $proto);
     my $transport;
 
+    eval { # If it fails ... oh well
+        use Socket::Linux qw(TCP_KEEPINTVL TCP_KEEPIDLE TCP_KEEPCNT);
+        setsockopt($self->{server}->{client}, SOL_SOCKET, SO_KEEPALIVE, 1);
+        setsockopt($self->{server}->{client}, IPPROTO_TCP, TCP_KEEPALIVE, 1);
+        setsockopt($self->{server}->{client}, IPPROTO_TCP, TCP_KEEPIDLE, 120);
+        setsockopt($self->{server}->{client}, IPPROTO_TCP, TCP_KEEPINTVL, 10);
+    };
+
     $self->{account} = undef; # New connection, no need to keep login info
     $self->{config} = $config;