-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

@@ -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) {