Use TCP keepalive probes in mux mode as well

Signed-off-by: Mike Rylander <mrylander@gmail.com>

diff --git a/SIPServer.pm b/SIPServer.pm
index 1f876ab..1756e99 100755 (executable)
--- a/SIPServer.pm
+++ b/SIPServer.pm
@@ -351,6 +351,16 @@ sub mux_input {
             worker_pipe => IO::Pipe->new
         };
  
+        # This is kind of kinky, but allows us to avoid requiring Socket::Linux.
+        # A simple "Socket::Linux"->use won't suffice since we need access to
+        # all of it's bareword constants as well.
+        eval <<'        EVAL';
+        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_KEEPIDLE, 120);
+        setsockopt($self->{server}->{client}, IPPROTO_TCP, TCP_KEEPINTVL, 10);
+        EVAL
+
         my $pid = fork();
         if (!defined($pid) or $pid < 0) {
             syslog('LOG_ERR', "Unable to fork new child process $!");