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 { +