#$vars{'NicTool-protocol_version'}=$NicToolServerAPI::protocol_version;
$vars{'nt_protocol_version'} = $NicToolServerAPI::protocol_version;
my $soap = SOAP::Lite->new(
#location of NicToolServer soap server
proxy => $url . '/soap',
#URI is typically org name followed by module path
uri => sprintf( '%s://%s/NicToolServer/SOAP',
$NicToolServerAPI::transfer_protocol,
$NicToolServerAPI::server_host ),
#don't die on fault, just return result.
on_fault => sub { my ( $soap, $res ) = @_; return $res; }
);
if ($NicToolServerAPI::debug_soap_setup) {
warn "URI: " . $soap->uri . ", proxy: " . $url . '/soap' . "\n";
warn "Calling soap function \"$func\" with params:\n" . Dumper( \%vars ) . "\n";
};
#make soap call and evaluate response.
my $som = $soap->call( $func => \%vars );