Re: Re: Re: Re: SOAP Client

[Hammy]

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.