Re: SOAP::LITE client help

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