use SO_KEEPALIVE to detect hanging connections

diff --git a/bin/ldap-koha.pl b/bin/ldap-koha.pl
index e97e1ef..e9ed1f9 100755 (executable)
--- a/bin/ldap-koha.pl
+++ b/bin/ldap-koha.pl
@@ -26,6 +26,7 @@ while (my @ready = $sel->can_read) {
                if ($fh == $sock) {
                        # let's create a new socket
                        my $psock = $sock->accept;
+                       $psock->sockopt(SO_KEEPALIVE,1);
                        $sel->add($psock);
                        $Handlers{*$psock} = LDAP::Koha->new($psock);
                } else {