--- trunk/lib/Intel/AMT/SOAP.pm 2009/08/30 22:11:52 22 +++ trunk/lib/Intel/AMT/SOAP.pm 2009/09/14 14:15:08 23 @@ -19,6 +19,8 @@ my $amt_debug = 0; $amt_debug = $ENV{'AMT_DEBUG'} if defined($ENV{'AMT_DEBUG'}); +my $timeout = $ENV{'AMT_TIMEOUT'} || 1; + my $amt_version; ############################################################################# @@ -99,6 +101,10 @@ $sas->autotype(0); $rcs->autotype(0); + $nas->transport->timeout($timeout); + $sas->transport->timeout($timeout); + $rcs->transport->timeout($timeout); + warn $proxybase; $amt_version = $sas->GetCoreVersion()->paramsout; @@ -117,6 +123,7 @@ default_ns => "$schemabase/$name/2004/01"); $soap->autotype(0); + $soap->transport->timeout($timeout); if ( @_ ) { do_soap($soap, $name, @_)