A
Amer Neely
I have a working script that successfully sends data from my home PC to
a SOAP server in a .NET environment. I run Win2K on this box.
When I upload the script to a Redhat server, it times out, and does not
submit any data.
Anyone have a clue what might be causing this?
-------------------------------8<---------------------------------
#!/usr/bin/perl
use strict;
use warnings;
use lib 'PerlMods/SOAP-Lite-0.69/lib';
use SOAP::Lite ( +trace => 'all', maptype => {} );
my $FirstName='Amer';
my $LastName='Neely';
my $proxy = 'http://xxx.xxx.xxx.xxx:180/somescript.asmx'; # edited
my $soap = SOAP::Lite
-> uri('http://localhost:180/somewhere')
-> on_action( sub { join '/', 'http://localhost:180/somewhere','Insert'} )
-> proxy('http://xxx.xxx.xxx.xxx:180/somescript.asmx');
my $method = SOAP:ata->name('Insert')
->attr({xmlns => 'http://localhost:180/somewhere'});
my @params = (
SOAP:ata-> name(FirstName => $FirstName),
SOAP:ata-> name(LastName => $LastName));
print $soap->call($method => @params)->result;
-------------------------------8<---------------------------------
This prints 'OK', which is what is returned by the 'Insert' function
from the server.
a SOAP server in a .NET environment. I run Win2K on this box.
When I upload the script to a Redhat server, it times out, and does not
submit any data.
Anyone have a clue what might be causing this?
-------------------------------8<---------------------------------
#!/usr/bin/perl
use strict;
use warnings;
use lib 'PerlMods/SOAP-Lite-0.69/lib';
use SOAP::Lite ( +trace => 'all', maptype => {} );
my $FirstName='Amer';
my $LastName='Neely';
my $proxy = 'http://xxx.xxx.xxx.xxx:180/somescript.asmx'; # edited
my $soap = SOAP::Lite
-> uri('http://localhost:180/somewhere')
-> on_action( sub { join '/', 'http://localhost:180/somewhere','Insert'} )
-> proxy('http://xxx.xxx.xxx.xxx:180/somescript.asmx');
my $method = SOAP:ata->name('Insert')
->attr({xmlns => 'http://localhost:180/somewhere'});
my @params = (
SOAP:ata-> name(FirstName => $FirstName),
SOAP:ata-> name(LastName => $LastName));
print $soap->call($method => @params)->result;
-------------------------------8<---------------------------------
This prints 'OK', which is what is returned by the 'Insert' function
from the server.