Thenoid has asked for the wisdom of the Perl Monks concerning the following question:

Pardon my newbieness in regards to soap, i've been slamming my face against the keyboard and haven't come up with the proper way to do this. I"m sure i'm missing something simple.

All i need is a way to access the SOAP service presented here: http://xserv.dell.com/services/assetservice.asmx?op=GetAssetInformation using the SOAP::Lite module...

Thx ahead of time

Replies are listed 'Best First'.
Re: SOAP::Lite Newb
by Anonymous Monk on Jul 09, 2011 at 13:39 UTC
Re: SOAP::Lite Newb
by Thenoid (Initiate) on Jul 10, 2011 at 06:44 UTC

    After more face rolling, and reading through the xml traces/debug/Dumper output was able to track down my issues to oddness between .NET and SOAP::Lite, following code works around said oddities.

    #!/usr/bin/perl -w use SOAP::Lite 'trace', 'debug'; use Data::Dumper; $GUID = '11111111-1111-1111-1111-111111111111'; $App = 'Test'; $ST = 'YOURST'; $s = SOAP::Lite -> uri('http://support.dell.com/WebServices/') ->on_action( sub { join '', @_ } ) -> proxy('http://xserv.dell.com/services/assetservice.asmx') ; $a = $s->GetAssetInformation( SOAP::Data->name('guid')->value($GUID)->type(''), SOAP::Data->name('applicationName')->value($App)->type(''), SOAP::Data->name('serviceTags')->value($ST)->type(''), ); print "blah:". Dumper($a->result)."\n"; ~
      Hi Thenoid, Thanks for your efforts. I've been banging my face on the same the problem. Your code works for me! I was wondering if you were able to get any entitlement data? I get the header data, but nothing in the entitlements.