19 |
my $amt_debug = 0; |
my $amt_debug = 0; |
20 |
$amt_debug = $ENV{'AMT_DEBUG'} if defined($ENV{'AMT_DEBUG'}); |
$amt_debug = $ENV{'AMT_DEBUG'} if defined($ENV{'AMT_DEBUG'}); |
21 |
|
|
22 |
|
my $timeout = $ENV{'AMT_TIMEOUT'} || 1; |
23 |
|
|
24 |
my $amt_version; |
my $amt_version; |
25 |
|
|
26 |
############################################################################# |
############################################################################# |
101 |
$sas->autotype(0); |
$sas->autotype(0); |
102 |
$rcs->autotype(0); |
$rcs->autotype(0); |
103 |
|
|
104 |
|
$nas->transport->timeout($timeout); |
105 |
|
$sas->transport->timeout($timeout); |
106 |
|
$rcs->transport->timeout($timeout); |
107 |
|
|
108 |
warn $proxybase; |
warn $proxybase; |
109 |
|
|
110 |
$amt_version = $sas->GetCoreVersion()->paramsout; |
$amt_version = $sas->GetCoreVersion()->paramsout; |
123 |
default_ns => "$schemabase/$name/2004/01"); |
default_ns => "$schemabase/$name/2004/01"); |
124 |
|
|
125 |
$soap->autotype(0); |
$soap->autotype(0); |
126 |
|
$soap->transport->timeout($timeout); |
127 |
|
|
128 |
if ( @_ ) { |
if ( @_ ) { |
129 |
do_soap($soap, $name, @_) |
do_soap($soap, $name, @_) |