WSSE с XML :: Compile :: SOAP :: WSS и Perl

Question

Поэтому у меня возникли некоторые проблемы при добавлении заголовка wsse к моему SOAP-запросу.

#!/usr/bin/perl
use 5.010;
use strict;
use warnings;
use Env qw( CYBS_ID CYBS_KEY );
use XML::Compile::Util qw( pack_type );
use XML::Compile::WSDL11;
use XML::Compile::SOAP::WSS;
use XML::Compile::SOAP11;
use XML::Compile::Transport::SOAPHTTP;

my $soap = XML::Compile::SOAP11::Client->new;

my $wsdl = XML::Compile::WSDL11->new(
    'CyberSourceTransaction_1.62.wsdl'
);

$wsdl->importDefinitions('CyberSourceTransaction_1.62.xsd');

my $call = $wsdl->compileClient( operation => 'runTransaction');

my ( $answer, $trace ) = $call->(
    wsse_Security => {
        version => '1.1',
        schema => {
            Username => $CYBS_ID,
        }
    },
    merchantID            => $CYBS_ID,
    merchantReferenceCode => '42',
);

say $trace->printRequest;

Вот вывод, который я получаю

mistake: tag `wsse_Security' not used at {urn:schemas-cybersource-com:transaction-data-1.62}requestMessage
warning: Internal Server Error
Request:
  POST https://ics2wstest.ic3.com/commerce/1.x/transactionProcessor HTTP/1.1
  User-Agent: libwww-perl/6.02
  Content-Length: 381
  Content-Type: text/xml; charset="utf-8"
  SOAPAction: "runTransaction"
  X-LWP-Version: 6.02
  X-XML-Compile-Cache-Version: 0.991
  X-XML-Compile-SOAP-Version: 2.24
  X-XML-Compile-Version: 1.22
  X-XML-LibXML-Version: 1.84

, и полученный xml

  <?xml version="1.0" encoding="UTF-8"?>
  <SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"><SOAP-ENV:Body><data:requestMessage xmlns:data="urn:schemas-cybersource-com:transaction-data-1.62"><data:merchantID>obfuscated</data:merchantID><data:merchantReferenceCode>42</data:merchantReferenceCode></data:requestMessage></SOAP-ENV:Body></SOAP-ENV:Envelope>

возврат?

1

ранее я пробовал my $wss ... код ... но это тоже не сработало.

Вот фактический запрос япытаясь сгенерировать

<?xml version="1.0" encoding="UTF-8"?>
<soap:Envelope 
    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" 
    xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" 
    xmlns:xsd="http://www.w3.org/2001/XMLSchema" 
    soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" 
    xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
  <soap:Header>
    <wsse:Security xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd">
      <wsse:UsernameToken>
        <wsse:Password Type="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-username-token-profile-1.0#PasswordText">obfuscated</wsse:Password>

        <wsse:Username>obfuscated</wsse:Username>
      </wsse:UsernameToken>
    </wsse:Security>
  </soap:Header>

  <soap:Body>
    <requestMessage xmlns="urn:schemas-cybersource-com:transaction-data-1.61">
      <merchantID>obfuscated</merchantID>

      <merchantReferenceCode>404</merchantReferenceCode>
    </requestMessage>
  </soap:Body>
</soap:Envelope>

возможно, у кого-то есть идея относительно того, как я добавлю заголовок wsse?

update

Я могусгенерируйте это мыло

<?xml version="1.0" encoding="UTF-8"?>
<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"><SOAP-ENV:Header><wsse:Security xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd"/></SOAP-ENV:Header>

, но все, что я пытался вставить wsse_Security, привело к ошибке, подобной этой:

mistake: tag `foo' not used at {http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd}Security

, где foo равно любомутеги, которые я пробую.

Answer 1

Я добавил примеры в дистрибутив, чтобы показать, как это сделать. Кроме того, я добавил метод, который поможет вам создать этот особый способ входа в систему. Выпущено как XML-Compile-WSS версия 0,12 .

my $call     = $wsdl->compileClient($operation);
my $security = $wss->wsseBasicAuth($username, $password);

my ($answer, $trace) = $call->
( wsse_Security => $security
, %payload
);