Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re: Re: Re: Re: SOAP Client

by Hammy (Scribe)
on Apr 15, 2004 at 03:22 UTC ( #345295=note: print w/replies, xml ) Need Help??


in reply to Re: Re: Re: SOAP Client
in thread SOAP Client

Just to put to bed a mystery, I did solve this one. Well, I did not actually solve this one, but a Java programmer who wrote the service found it. Anyway here is the code.
use SOAP::Lite; my $s = SOAP::Lite -> uri('http://www.arkbluecross.com/WebServices/EncryptionS +ervice') ->proxy('https://secure.arkansasbluecross.com/WebServices/E +ncryptionService.asmx') -> on_action(sub{sprintf '%s/%s', @_ }); my $custID = SOAP::Data->name('CustID' => "$cust_id")->type('strin +g')->uri('http://www.arkbluecross.com/WebServices/EncryptionService') +; my $data = SOAP::Data->name('EncryptedData' => "$es")->type('strin +g')->uri('http://www.arkbluecross.com/WebServices/EncryptionService') +; $result = $s->Decrypt($custID, $data)->result;
I do not necessarily understand the differences between all my iterations and this one, but it works which was my main concern. ES and client ID are now passed in. I still do not know why +trace never worked for me. I never saw anthing on the screen. Anytime there is an error I write it to a file and I found all kinds of garbage in there dealing with my attempts. Thanks for your help.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (5)
As of 2019-08-22 09:22 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?