Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re: SOAP::LITE client help

by Khen1950fx (Canon)
on May 01, 2014 at 04:24 UTC ( #1084562=note: print w/replies, xml ) Need Help??


in reply to SOAP::LITE client help

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.

Replies are listed 'Best First'.
Re^2: SOAP::LITE client help
by Wroof (Novice) on May 01, 2014 at 22:57 UTC

    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";
      Thanks for the response. I fixed a typo. Please try it again.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1084562]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (9)
As of 2019-06-24 17:56 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Is there a future for codeless software?



    Results (99 votes). Check out past polls.

    Notices?