From b177a9b55d239799a659f73f71d91b4a8beda0b1 Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Tue, 1 Sep 2009 18:03:46 +0000
Subject: [PATCH] -Termiate a failing client connection sooner (for
 environments with failed service nodes mainly)

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@4071 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/Client.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/perl-xCAT/xCAT/Client.pm b/perl-xCAT/xCAT/Client.pm
index 39c2fed4a..5720d1f4b 100644
--- a/perl-xCAT/xCAT/Client.pm
+++ b/perl-xCAT/xCAT/Client.pm
@@ -137,10 +137,12 @@ sub submit_request {
     SSL_cert_file => $certfile,
     SSL_ca_file => $cafile,
     SSL_use_cert => 1,
+    Timeout => 15,
     );
   } else {
      $client = IO::Socket::SSL->new(
-      PeerAddr => $xcathost
+      PeerAddr => $xcathost,
+      Timeout => 15,
      );
    }
   unless ($client) {