Re: SOAP::LITE client help

[Wroof]

Ok so thank you everyone for you help so far. Currently I have not have not been able to get much back from the system so I have decided to try the html approach in Perl. Below is the code

#!/usr/bin/perl -w

use strict;

use LWP::UserAgent;
use HTTP::Request::Common;

my $userAgent = LWP::UserAgent->new(agent => 'perl post');

my $message = "<?xml version=\"1.0\" encoding=\"utf-8\"?> 
<soap12:Envelope xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance
+\" 
xmlns:xsd=\"http://www.w3.org/2001/XMLSchema\" 
xmlns:soap12=\"http://www.w3.org/2003/05/soap-envelope\"> 
 <soap12:Body> 
 <getCardInfo xmlns=\"http://www.designa.de/\"> 
 <UserID>ws</UserID> 
 <UserPWD>ws</UserPWD> 
 <TccNum>45</TccNum> 
 <CardNumber>\"PM010010110000000037\"</CardNumber> 
 </getCardInfo> 
 </soap12:Body> 
</soap12:Envelope>" ;

my $response = $userAgent->request(POST 'http://192.168.1.100/AbacusWe
+bService/ServiceCashPoint.asmx/getCardInfo',
Content_Type => 'text/plain',
Content => $message);

print $response->error_as_HTML unless $response->is_success;

print $response->as_string;

Now I can connect for the isAlive command and get a response bac even though it is in a xml format. How ever when I try and and request getCardInfo which is to return a few different things I get a error saying Request format is invalid. I know I am missing something simple but for the life of me I cannot work it out. Once again thanks for all the help

[Anonymous Monk]

You're missing all the headers that SOAP adds like SOAPAction (you can see an example in $soap->transport->add_handler("request_send", \&pp_dump ); )

If you to get things done with SOAP::Lite you want to avoid autodispatch and you want to deal with SOAP::Data, the cookbook has examples (as do my links)

Here is my copy/paste of my soap tips (I hate soap), SOAP::Lite is too much work, SOAP::Simple is less work (but its simple, when stuck go to XML::Compile::SOAP, more verbose, but you want verbose with SOAP ) ... its built on XML::Compile::SOAP/http://perl.overmeer.net/xml-compile/#doc , see my treasure trove of soap examples and lost knowledge,$soap->transport->add_handler("request_send", \&pp_dump );, http://cookbook.soaplite.com/, SOAP endpoint , Re^3: SOAP::Lite login setup, Re: I do not understand how to write a SOAP server., An XML Overview Towards Understanding SOAP, Re^3: SOAP::Lite and custom envelopes, The XML FIles: Understanding XML Namespaces, How to Call a .NET-based Web Service Using the SOAP::Lite Perl Library (2002 )