Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re: Setting XML prefix for tags with SOAP::Lite

by AltBlue (Chaplain)
on Jul 31, 2008 at 00:53 UTC ( [id://701308]=note: print w/replies, xml ) Need Help??


in reply to Setting XML prefix for tags with SOAP::Lite

How can I get the "wsse" prefix on the UsernameToken tag?
my $securityHeader = SOAP::Header->new( name => 'Security', uri => $wsse, prefix => 'wsse', value => \SOAP::Data->new( name => 'UsernameToken', prefix => 'wsse', value => { Username => SOAP::Data->type( '' => $userId )->prefix('wss +e'), Password => SOAP::Data->type( '' => $password )->prefix('w +sse'), } ) );

Update: sorry, missed your second issue...

I also need to add the xmlns attribute to grid-name
my $gridName = SOAP::Header->new( name => 'grid-name', value => 'SampleGrid1', uri => 'urn:realops.com:amp:workflow', prefix => '', type => '', );
'HTH

Replies are listed 'Best First'.
Re^2: Setting XML prefix for tags with SOAP::Lite
by TheFluffyOne (Beadle) on Jul 31, 2008 at 05:45 UTC

    Fantastic, thanks Altblue. That's exactly what I needed.

Re^2: Setting XML prefix for tags with SOAP::Lite
by TheFluffyOne (Beadle) on Jul 31, 2008 at 21:20 UTC

    With the SOAP call in better shape, I had to work around an issue with the Username and Password being in the wrong order (the WSDL specifies them as a sequence).

    I think I just have one more hurdle to overcome. The current version of the script results in the SOAP body:

    <soap:Body> <DirList xmlns="Test_Module" xsi:nil="true" /> </soap:Body>

    But in order to work it seems that it should be:

    <soap:Body> <tra:DirList /> </soap:Body>

    (Where tra is a namespace defined as "Test_Module"). Additionally, I'll want to add a couple of parameters like so:

    <soap:Body> <tra:DirList> <param1>value1</param1> <param2>value2</param2> </tra:DirList> </soap:Body>

    My recent attempts at adding the parameters have resulted in lots of c-gensym tags added, which I think is an indication that I'm not referencing the data correctly

    The code as it currently stands (without the attempt at adding parameters):

    #!/usr/bin/perl -w use strict; use SOAP::Lite +trace => 'debug', maptype => { }; use Tie::IxHash; my $userId = "admin"; my $password = "adminpw"; my %authHash; tie %authHash, "Tie::IxHash"; %authHash = ( Username => SOAP::Data->type( '' => $userId )->prefix('wss +e'), Password => SOAP::Data->type( '' => $password )->prefix('w +sse'), ); my $wsdl = "http://10.50.50.132:9080/ws/workflow"; my $rba = SOAP::Lite->uri('Test_Module')->proxy($wsdl); $rba->on_action(sub { return '"execute-workflow"'; } ); my $wsse = "http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-ws +security-secext-1.0.xsd"; my $gridName = SOAP::Header->new( name => 'grid-name', value => 'Amsterdam', uri => 'urn:realops.com:amp:workflow', prefix => '', type => '', ); my $securityHeader = SOAP::Header->new( name => 'Security', uri => $wsse, prefix => 'wsse', value => \SOAP::Data->new( name => 'UsernameToken', prefix => 'wsse', value => \%authHash ) ); my $result = $rba->DirList($gridName, $securityHeader)->result(); print "\n\n\n$result\n";

      Well as I was cleaning up my parameter-adding code to post, I had some inspiration and have found a way to do it (though it seems clunky). I have also realised that it wasn't the lack of prefix causing the problem, it was that I was using the wrong method name (d'oh!). New code:

      my @params = ( SOAP::Data->new( prefix => '', name => 'param1', value => SOAP::Data->type('' =>'value1') ), SOAP::Data->new( prefix => '', name => 'param2', value => SOAP::Data->type('' =>'value2') ) ); my $result = $rba->DirList(@params, $gridName, $securityHeader)->resul +t();

      Which results in:

      <soap:Body> <DirList xmlns="Test_Module"> <param1>value1</param1> <param2>value2</param2> </DirList> </soap:Body>

      The tag "DirList" needs to be "DirList-Request", but I can't use this directly in my current code as I get bareword errors...

        Well after much more RTFMing and Googling, I've figured out how to handle the hyphenated method name:

        my $result = $rba->call($workflowName => (@params, $gridName, $securityHeader))->result();

        This code isn't a direct replacement for the line in the code above as I have reworked a few variables, but I think knowing that $workflowName is the method name to call should be enough for most to figure it out :)

        Next challenge is to figure out why 'result' isn't being populated...

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others cooling their heels in the Monastery: (3)
As of 2024-06-15 11:54 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?
    erzuuli‥ 🛈The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.