SOAP::LITE client help

[Wroof]

Good morning Monks

I have been trying to write a client to access a soap server for a job and am very new to Perl and SOAP. I have been given the following information from the server and need to write a client for it. If someone use their vast knowledge to help me access the first function then I am sure I can take the rest :)

 SOAP 1.1 
HTTP/1.1 200 OK 
Content-Type: text/xml; charset=utf-8 
Content-Length: length 
 
<?xml version="1.0" encoding="utf-8"?> 
<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" 
xmlns:xsd="http://www.w3.org/2001/XMLSchema" 
xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"> 
 <soap:Body> 
 <getCardInfoResponse xmlns="http://www.designa.de/"> 
 <getCardInfoResult> 
 <AmountPayed>int</AmountPayed> 
 <AmountDue>int</AmountDue> 
 <AmountDueCurrency>decimal</AmountDueCurrency> 
 <AmountDuePeriodStart>dateTime</AmountDuePeriodStart> 
 <AmountDuePeriodEnd>dateTime</AmountDuePeriodEnd> 
 <CardUID>guid</CardUID> 
 <ISONumber>string</ISONumber> 
 <CardType>int</CardType> 
 <CarparkUID>guid</CarparkUID> 
 <CarparkNr>int</CarparkNr> 
 <CodingTime>dateTime</CodingTime>
 <LastTccNumber>int</LastTccNumber> 
 <LastTccTime>dateTime</LastTccTime> 
 <NumberOfPayments>int</NumberOfPayments> 
 <GracePeriod>int</GracePeriod> 
 <VAT>int</VAT> 
 <MoneyConversionFactor>decimal</MoneyConversionFactor> 
 <Currency>string</Currency> 
 <Cheater>boolean</Cheater> 
 <RabattInfo> 
 <Wert>int</Wert> 
 <Zeit>int</Zeit> 
 <Promille>int</Promille> 
 <PromilleGeb>int</PromilleGeb> 
 <GID>int</GID> 
 <NullUntil>int</NullUntil> 
 <CaOrder>string</CaOrder> 
 <WertVerr>int</WertVerr> 
 <ZeitVerr>int</ZeitVerr> 
 <RabattBetragAbsolut>int</RabattBetragAbsolut> 
 </RabattInfo> 
 </getCardInfoResult> 
 </getCardInfoResponse> 
 </soap:Body> 
</soap:Envelope> 
 
 SOAP 1.2 
HTTP/1.1 200 OK 
Content-Type: application/soap+xml; charset=utf-8 
Content-Length: length 
 
<?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> 
 <getCardInfoResponse xmlns="http://www.designa.de/"> 
 <getCardInfoResult> 
 <AmountPayed>int</AmountPayed> 
 <AmountDue>int</AmountDue> 
 <AmountDueCurrency>decimal</AmountDueCurrency> 
 <AmountDuePeriodStart>dateTime</AmountDuePeriodStart> 
 <AmountDuePeriodEnd>dateTime</AmountDuePeriodEnd> 
 <CardUID>guid</CardUID> 
 <ISONumber>string</ISONumber> 
 <CardType>int</CardType> 
 <CarparkUID>guid</CarparkUID> 
 <CarparkNr>int</CarparkNr> 
 <CodingTime>dateTime</CodingTime> 
 <LastTccNumber>int</LastTccNumber> 
 <LastTccTime>dateTime</LastTccTime> 
 <NumberOfPayments>int</NumberOfPayments> 
 <GracePeriod>int</GracePeriod> 
 <VAT>int</VAT> 
 <MoneyConversionFactor>decimal</MoneyConversionFactor> 
 <Currency>string</Currency> 
 <Cheater>boolean</Cheater> 
 <RabattInfo> 
 <Wert>int</Wert> 
 <Zeit>int</Zeit> 
 <Promille>int</Promille> 
 <PromilleGeb>int</PromilleGeb> 
 <GID>int</GID> 
 <NullUntil>int</NullUntil> 
 <CaOrder>string</CaOrder> 
 <WertVerr>int</WertVerr> 
 <ZeitVerr>int</ZeitVerr> 
 <RabattBetragAbsolut>int</RabattBetragAbsolut> 
 </RabattInfo> 
 </getCardInfoResult> 
 </getCardInfoResponse> 
 </soap12:Body> 
</soap12:Envelope> 
 
 HTTP POST 
HTTP/1.1 200 OK 
Content-Type: text/xml; charset=utf-8 
Content-Length: length 
 
<?xml version="1.0" encoding="utf-8"?> 
<CardInfo xmlns="http://www.designa.de/"> 
 <AmountPayed>int</AmountPayed> 
 <AmountDue>int</AmountDue> 
 <AmountDueCurrency>decimal</AmountDueCurrency> 
 <AmountDuePeriodStart>dateTime</AmountDuePeriodStart> 
 <AmountDuePeriodEnd>dateTime</AmountDuePeriodEnd> 
 <CardUID>guid</CardUID> 
 <ISONumber>string</ISONumber> 
 <CardType>int</CardType> 
 <CarparkUID>guid</CarparkUID> 
 <CarparkNr>int</CarparkNr> 
 <CodingTime>dateTime</CodingTime> 
 <LastTccNumber>int</LastTccNumber> 
 <LastTccTime>dateTime</LastTccTime> 
 <NumberOfPayments>int</NumberOfPayments> 
 <GracePeriod>int</GracePeriod> 
 <VAT>int</VAT> 
 <MoneyConversionFactor>decimal</MoneyConversionFactor> 
 <Currency>string</Currency> 
 <Cheater>boolean</Cheater> 
 <RabattInfo> 
 <Wert>int</Wert> 
 <Zeit>int</Zeit> 
 <Promille>int</Promille> 
 <PromilleGeb>int</PromilleGeb> 
 <GID>int</GID> 
 <NullUntil>int</NullUntil> 
 <CaOrder>string</CaOrder> 
 <WertVerr>int</WertVerr> 
 <ZeitVerr>int</ZeitVerr> 
 <RabattBetragAbsolut>int</RabattBetragAbsolut> 
 </RabattInfo> 
</CardInfo>

So far I have not even been able to create the most basic connection using Perl and am a complete loss as to what to do next. Below is my code to call the method isAlive that the server also has.

 my ($isbn_number) = @ARGV;
  use SOAP::Lite +autodispatch=>
      uri=>'http://www.designa.de/', outputxml=>1,
      proxy=>'http://192.168.1.100/AbacusWebService/ServiceCashPoint.a
+smx';
  my $isbn_xml = isAlive();
  print "$isbn_xml\n";

As you can probably tell I have modified this from an example. Below is the output I get

 Use of inherited AUTOLOAD for non-method main::isAlive() is deprecate
+d at C:\Use
rs\Sam\Documents\Perl code\soap.pl line 15.
<?xml version="1.0" encoding="utf-8"?><soap:Envelope xmlns:soap="http:
+//schemas.
xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/XMLSchem
+a-instance
" xmlns:xsd="http://www.w3.org/2001/XMLSchema"><soap:Body><soap:Fault>
+<faultcode
>soap:Client</faultcode><faultstring>Server did not recognize the valu
+e of HTTP
Header SOAPAction: http://www.designa.de/#isAlive.</faultstring><detai
+l /></soap
:Fault></soap:Body></soap:Envelope>
Press any key to continue . . .

[Khen1950fx]

In general, I would try something along these lines; also, you'll need warnings::everywhere.

#!/usr/bin/perl -l

use strict;
no warnings::anywhere qw(deprecated);
use warnings qw(deprecated);

my $isbn = shift @ARGV;

use SOAP::Lite +autodispatch => 
    uri   => 'http://www.designa.de/',
    proxy => 'http://192.168.1.100/AbacusWebService/ServiceCashPoint.a
+smx',
    on_fault => sub {
        my ( $soap, $res ) = @_;
        die ref $res
            ? $res->faultdetail
            : $soap->transport->status;
};

isAlive( $isbn );
print SOAP::Lite->self->call->result;

Update: fixed typo - should be a comma at end of line 11.

[Wroof]

Thanks for your help. When I try and run this code after installing warnings::Everywhere I get the following errors.

Use of uninitialized value $_[0] in pattern match (m//) at C:/Strawber
+ry/perl/si
te/lib/SOAP/Lite.pm line 340.
Use of uninitialized value in sprintf at C:/Strawberry/perl/site/lib/S
+OAP/Lite.p
m line 3612.
Press any key to continue . . .

I have also tried another piece of code to see what happens and this one returns no errors but it also does not output anything other that the test points I put in. This uses the WSDL on the page.

#!/usr/bin/perl -w

use strict;
use diagnostics;
use warnings;
use Data::Dumper;
eval {
  require SOAP::Lite;
};
die "Fehler:\n$@\n\n" if $@;

my $soap = SOAP::Lite->new();
print "test \n";

my $service = $soap->service('http://192.168.1.100/AbacusWebService/Se
+rviceCashPoint.asmx?wsdl');
print Dumper($service->getCardInfo('ws','ws','45','pm01001011000000003
+7'));
print "test \n";

[Khen1950fx]

Thanks for the response. I fixed a typo. Please try it again.

[Anonymous Monk]

You can always turn on debugging $soap->transport->add_handler("request_send", \&pp_dump );

Autodispatch may work fine if you know what you're doing or if your're writing both ends, but I've never made any progress with it

[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 )