Re: SOAP::Lite headers

[thanos1983]

Hello eukiph,

Welcome to the monastery. We need to see your script and ideally the version of the module SOAP::Lite in case there is a bug on old versions.

Since you do not know much regarding Perl, hmmm do you know how the nodule was installed? Through CPAN?

If so just apply:

cpan -D SOAP::Lite
CPAN: Storable loaded ok (v2.20)
Reading '/root/.cpan/Metadata'
  Database was generated on Fri, 02 Jun 2017 13:54:43 GMT
SOAP::Lite
----------------------------------------------------------------------
+---
    CPAN: Module::CoreList loaded ok (v5.20170420)
(no description)
    P/PH/PHRED/SOAP-Lite-1.20.tar.gz
    /usr/local/share/perl5/SOAP/Lite.pm
    Installed: 1.20
    CPAN:      1.20  up to date
    Fred Moyer (PHRED)
    [e-mail]

Hope this helps.

[eukiph]

Hello Thanos,
My script has been working for quite a while, co the version of SOAP::Lite it uses is 1.06 ...well, good point, i shall try a newer version and let you know whether the problem persists or not ;). (and copy/paste the script, if not)
Eukiph

[thanos1983]

Hello again,

To update the module through CPAN is just cpan <module name>. It doesn't mean that this will solve your problem. There is a possibility that SOAP has been updated and requires a few new parameters and the current module that you are running has not been updated and not going to be. I. This case you need to search for a new more fresh module.

Hope this helps to guide you to the correct direction.

[eukiph]

Hi,
so I have updated SOAP::Lite to current version (1.20) and, suprise suprise, no miracles happened :).
I am not sure its gonna help, but here is a part of the code I think is relevant.
I think that I need to redefine some headers in the SOAP::Transport class?

our $customer_wsdl = "http://172.26.9.168:18120/OELAdapterWebService";
our $customer_endpoint     = "http://172.26.9.168:18120/OELAdapterWebS
+ervice";

our $customer_soapenv    = "http://schemas.xmlsoap.org/soap/envelope/"
+; 
our $customer_oel    = "http://xxx.com/OELAdapter";
our $customer_soapAction = "\"/OELAdapter/ProcessDefinitions/Productio
+n/Services/OELAdapter/SoapOverHttp/OELAdapter.serviceagent//ProcessOr
+derAsync\"";

our $customer_soap = SOAP::Lite
    ->proxy($customer_wsdl)
    ->uri($customer_endpoint)
    ->readable(1)
    ->autotype(0)
    ->on_action(sub{$customer_soapAction;});
        
$customer_soap->serializer->register_ns($customer_soapenv, 'soapenv');
$customer_soap->serializer->register_ns($customer_oel, 'oel');
            
our $customer_result = $customer_soap->call(
    SOAP::Data->name('oel:ProcessOrderAsyncRequest') => (
        SOAP::Data->name('oel:ExternalId' => '1234'),
        SOAP::Data->name('oel:IncomingOrderSource' => 'Selfcare'),
        SOAP::Data->name('oel:IncomingOrderDescription' => 'abcd'),
        SOAP::Data->name('oel:RequiredNotification' => 'false'),
        SOAP::Data->name('oel:IncomingOrder' => $order)
    )
);