I
info
When I call a webservice on a .net machine with the script below, I
only receive a 1 or a true as a result. Instead of that I should
receive an XML file. Anybody...... what am I doing wrong??
In a SSH session everything looks perfect. I even see the XML string
with the response, but not in my browser.
$xml = qq(
<?xml version="1.0" encoding="utf-8"?>
<theCallInfo>
<strCountry>NL</strCountry>
<strLanguage>NL</strLanguage>
<strTourOperator>Amstelborgh</strTourOperator>
<strNrOfassured>2</strNrOfassured>
<strTotalAmount>200</strTotalAmount>
<startDate>25-10-2007</startDate>
<endDate>27-10-2007</endDate>
<Coverage>E</Coverage>
<strCurrency>EUR</strCurrency>
<bSingleTrip>false</bSingleTrip>
</theCallInfo>
);
$xml =~ s/\<\?xml.*\?\>\n?//;
$xml =~ s/\<\!.*\>\n?//;
use SOAP::Lite +trace =>debug;
$client = SOAP::Lite
-> uri('.... bla bla bla')
-> proxy(' bla bla bla')
-> on_action(sub{sprintf '%s%s', @_ })
;
$res=SOAP:ata->type('xml' => $xml);
$result = $client->GetProductsForTourOperator($res);
print "content-type:text/html\n\n";
print qq~
testing.... (result: $result)
~;
only receive a 1 or a true as a result. Instead of that I should
receive an XML file. Anybody...... what am I doing wrong??
In a SSH session everything looks perfect. I even see the XML string
with the response, but not in my browser.
$xml = qq(
<?xml version="1.0" encoding="utf-8"?>
<theCallInfo>
<strCountry>NL</strCountry>
<strLanguage>NL</strLanguage>
<strTourOperator>Amstelborgh</strTourOperator>
<strNrOfassured>2</strNrOfassured>
<strTotalAmount>200</strTotalAmount>
<startDate>25-10-2007</startDate>
<endDate>27-10-2007</endDate>
<Coverage>E</Coverage>
<strCurrency>EUR</strCurrency>
<bSingleTrip>false</bSingleTrip>
</theCallInfo>
);
$xml =~ s/\<\?xml.*\?\>\n?//;
$xml =~ s/\<\!.*\>\n?//;
use SOAP::Lite +trace =>debug;
$client = SOAP::Lite
-> uri('.... bla bla bla')
-> proxy(' bla bla bla')
-> on_action(sub{sprintf '%s%s', @_ })
;
$res=SOAP:ata->type('xml' => $xml);
$result = $client->GetProductsForTourOperator($res);
print "content-type:text/html\n\n";
print qq~
testing.... (result: $result)
~;