From 5e20327791a0591e8133b4f06b591b358dd22678 Mon Sep 17 00:00:00 2001
From: sakolish <sakolish@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Fri, 2 May 2008 18:10:25 +0000
Subject: [PATCH] Added connect timeout configurable through site.fsptimeout

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

diff --git a/perl-xCAT-2.0/xCAT/PPCfsp.pm b/perl-xCAT-2.0/xCAT/PPCfsp.pm
index 16ad7e2ed..23d73d42c 100644
--- a/perl-xCAT-2.0/xCAT/PPCfsp.pm
+++ b/perl-xCAT-2.0/xCAT/PPCfsp.pm
@@ -221,11 +221,18 @@ sub handler {
 ##########################################################################
 sub connect {
 
-    my $request = shift;
+    my $req     = shift;
     my $server  = shift;
-    my $verbose = $request->{verbose};
+    my $verbose = $req->{verbose};
+    my $timeout = $req->{fsptimeout};
     my $lwp_log;
 
+    ##################################
+    # Use timeout from site table 
+    ##################################
+    if ( !$timeout ) {
+        $timeout = 30;
+    }
     ##################################
     # Get userid/password 
     ##################################
@@ -262,7 +269,7 @@ sub connect {
     ##################################
     my $url = "https://$server/cgi-bin/cgi?form=2";
     $ua->cookie_jar( $cookie );
-    $ua->timeout(30);
+    $ua->timeout( $timeout );
 
     ##################################
     # Submit logon
@@ -1696,3 +1703,4 @@ sub all_clear {
 
 
 
+