Thread

[ home | FAQ | about | stats | new post | login | register | tags ]
Do you want to spoil my kids? Here is my Amazon wishlist

SOAP-WSDL [search.cpan.org] [Kobes search] [View and report bugs] [Ratings 0.0 (0) ]
[AnnoCPAN] [CPAN Tests results] [CPANTS]
Posted on Wed Apr 23 04:21:25 2008 by rhumbliner
retrieving output
i'm sorry, but after my interface call, i just don't know how to retrieve the returned data. my code is as follows:
my $response = $interface->fsPublic_SQL( { # MyTypes::fsPublic_SQLInput QryIn => { StrQuery => $q, option => 'XML', keepRowHeader => 'false', }, },, ); die $response if not $response; print Dumper($response);

the output of the print is:
$response = bless( do{\(my $o = 19)}, 'MyElements::fsPublic_SQLOutput' );

the docs for MyElements::fsPublic_SQLOutput follows:
[~] perldoc MyElements::fsPublic_SQLOutput DESCRIPTION Perl data type class for the XML Schema defined element fsPublic_SQLOutput from the namespac +e http://infraweb- dev.fs.usda.gov/fs_public.Services. METHODS new my $element = MyElements::fsPublic_SQLOutput->new($data); Constructor. The following data structure may be passed to new(): { # MyTypes::fsPublic_SQLOutput QryResult => { # MyTypes::QryResult StrHTML => $some_value, # string StrCsv => $some_value, # string StrXML => $some_value, # string }, }, AUTHOR Generated by SOAP::WSDL

i'm stumped as to how to recover the output.

thanks for your patience,
tom
Direct Responses: 7727 | Write a response
Posted on Wed Apr 23 14:18:49 2008 by mkutter in response to 7724
Re: retrieving output
Use the $obj->get_FOO methods. Just try a name of your choice, and it'll tell you what names are there.

If you need all as a hash ref, you can just use $obj->as_hash_ref()

Martin
Direct Responses: 7730 | Write a response
Posted on Wed Apr 23 18:17:32 2008 by rhumbliner in response to 7727
Re: retrieving output

i'm sorry. i must be really obtuse. i've read every line of code generated by wsdl2perl and studied the pod's. i just can't figure out which $obj you're referring to. the main pod shows only 2 objects: $interface and $response.

[~] perldoc MyInterfaces::WSfsPublicQuery::Services_WSfsPublicQuery_Port NAME MyInterfaces::WSfsPublicQuery::Services_WSfsPublicQuery_Port - SOAP Interface for the WSfsPublicQuery Web Service SYNOPSIS use MyInterfaces::WSfsPublicQuery::Services_WSfsPublicQuery_Port; my $interface = MyInterfaces::WSfsPublicQuery::Services_WSfsPublicQuery_Port->new(); my $response; $response = $interface->fsPublic_SQL(); DESCRIPTION SOAP Interface for the WSfsPublicQuery web service located at http://infrawebdev.fs.usda.gov:5556/ws/fs_public.webService:WSfsPublicQuery.

but when i access $response->get_all() no methods are listed:

Can't locate object method "get_all" via package "MyElements::fsPublic_SQLOutput". Valid methods are: at /usr/lib64/perl5/site_perl/5.8.8/SOAP/WSDL/XSD/Typelib/ComplexType.pm line 42


if i dump $response it tells me i've got the object i think it want. the code
print Dumper($response);
tells me i've got an object of type fsPublic_SQLOutput but there are no methods to access this object:

$response = bless( do{\(my $o = 19)}, 'MyElements::fsPublic_SQLOutput' );


i'm pretty certain the data is being returned from the server, because if i replace the simple hash in the fsPublic_SQL() call with a MyTypes::fsPublic_SQLInput object the call generates a fault and dumps the entire dataset i'm expecting.

i'm sorry to be a pain, but i'm at a loss to figure this out.

thanks,
tom
Direct Responses: 7733 | Write a response
Posted on Wed Apr 23 20:06:05 2008 by mkutter in response to 7730
Re: retrieving output
Try $response->_DUMP to get the content of the output object.

You can also look up the class' doc: "perldoc MyElements::fsPublic_SQLOutput" Maybe there just is no content, or it has text content which you can access via ->value();

If there's nothing, but should be, try passing the option "outputxml => 1" to the constructor of the interface class - it should return XML then instead of a response object.

Martin
Direct Responses: 7734 | Write a response
Posted on Wed Apr 23 20:37:52 2008 by rhumbliner in response to 7733
Re: retrieving output

the output of `print "_DUMP: ",$response-<_DUMP();` is:

_DUMP: { 'MyTypes::fsPublic_SQLOutput' => { 'QryResult' => bless( do{\(my $o = 20)}, 'MyTypes::QryResult' +) } };


the output of `perldoc MyElements::fsPublic_SQLOutput` is:

NAME MyElements::fsPublic_SQLOutput DESCRIPTION Perl data type class for the XML Schema defined element fsPublic_SQLOutput from the namespac +e http://infraweb- dev.fs.usda.gov/fs_public.Services. METHODS new my $element = MyElements::fsPublic_SQLOutput->new($data); Constructor. The following data structure may be passed to new(): { # MyTypes::fsPublic_SQLOutput QryResult => { # MyTypes::QryResult StrHTML => $some_value, # string StrCsv => $some_value, # string StrXML => $some_value, # string }, }, AUTHOR Generated by SOAP::WSDL


which, incidently, puzzles me because why would i want a method to create something that i am expecting as output. shouldn't the pod describe methods to retrieve data from the object?

passing "{outputxml =>1}" as an option to the interface constructor produces xml with the dataset i'm expecting:

$response = '<?xml version="1.0" encoding="UTF-8"?> <SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:SOAP-ENC="http: +//schemas.xmlsoap.org/soap/encoding/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http +://www.w3.org/2001/XMLSchema-instance"> <SOAP-ENV:Header xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"></SOAP-ENV:Header><SOAP +-ENV:Body> <ser-root:fsPublic_SQLOutput xmlns:ser-root="http://infrawebdev.fs.usda.gov/fs_public.Services"><Qr +yResult> <StrHTML></StrHTML> <StrCsv></StrCsv> <StrXML> &lt;qryResults&gt; &lt;rows&gt; &lt;ID&gt;04&lt;/ID&gt; &lt;NAME&gt;R4, INTERMOUNTAIN REGION&lt;/NAME&gt; &lt;/rows&gt; ... snip ... &lt;/qryResults&gt;</StrXML></QryResult></ser-root:fsPublic_SQLOutput></SOAP-ENV:Body> </SOAP-ENV:Envelope>


thanks for walking me thru this,
tom
Direct Responses: 7741 | Write a response
Posted on Thu Apr 24 02:50:55 2008 by noah in response to 7734
Re: retrieving output

You've already got your response object; in the example from your first post it's '$response'. From this you've got two primary options for mucking with the data;

1) As martin said, call $response->as_hash_ref() which will return a traditional hash reference with which you can work;

2) use the get_-prefixed called your $response object has available. To see which calls it exposes, examine the full error text returned when you call $response->get_nosuchmethod(). Each get_-prefixed call returns an object which references the corresponding tag in the SOAP response. Once you figure out what the first call is, working your way down the tree is just a matter of examining the objects returned from get_(whatever) with _DUMP().

It's a bit hairy the first time through, especially if you're not familiar with how Class::Std(::Fast)? works, but it makes sense.

Noah
Direct Responses: 7745 | Write a response
Posted on Thu Apr 24 06:04:20 2008 by rhumbliner in response to 7741
Re: retrieving output

well i certainly agree with the "hairy" part. ;-)

the problem i'm running into is that i *know* data is coming back because when i create the interface object with {outputxml => 1} i see the data i'm expecting. but when i create $interface normally, then $response->as_hash_ref() returns an empty hash. and $response->get_foo() doesn't return a list of valid calls so i'm stuck there -- i don't have any idea of what methods are available to me. and $response->_DUMP() returns:

{ 'MyTypes::fsPublic_SQLOutput' => { 'QryResult' => bless( do{\(my $o = 20)}, 'MyTypes::QryResult' ) } };


and this still gives me no hints of any methods to use on these objects.

if it was as simple as following objects and their methods down a tree i wouldn't be stuck like this. :-(

is it possible that something is lacking the the wsdl definition? i find it hard to believe that getting a list of valid methods is so difficult.

still grateful for your help,

tom
Direct Responses: 7764 | Write a response
Posted on Fri Apr 25 11:30:39 2008 by mkutter in response to 7745
Re: retrieving output
Hi Tom,
actually, it is as simple as following methods down a tree, but you probably just got confused by not seeing anything reasonable in the Data::Dumper output.
SOAP::WSDL uses Inside-Out objects, which have several nice features like a memory overhead proportional to the number of class properties, not to the number of objects created (like hash-based objects). However, they're a bit different: They don't show their values in Dumper output, and the _DUMP output is a bit different to read.

$response->get_QryResult();

Should give you the first level response object. And - if nothing has gone wrong - calling any get_FOO method on a object should die with a message like
Can't locate object method "get_FOO" via package "MyTypes::testComplexTypeAll". Valid methods are: get_Test_2, set_Test_2, get_Test_1, set_Test_1 at lib/SOAP/WSDL/XSD/Typelib/ComplexType.pm line 52 SOAP::WSDL::XSD::Typelib::ComplexType::AUTOMETHOD('MyTypes::testComplexTypeAll=SCALAR(0x85b +acb4)', 140225716) called at /usr/local/share/perl/5.8.8/Class/Std.pm line 546 Class::Std::AUTOLOAD('MyTypes::testComplexTypeAll=SCALAR(0x85bacb4)') called at t/SOAP/WSDL +/Generator/XSD_dot_names.t line 106

The stuff listed in "Valid methods" should give you a hint what to call.

You can also find the list of properties in the pod of the generated classes - the section should read something like this:
PROPERTIES The following properties may be accessed using get_PROPERTY / set_PROPERTY methods: * Test_1 * Test_2
However, you might also have found a bug in SOAP::WSDL, triggering incomplede code generation. But this is - unfortunately - something I cannot tell without examining the WSDL.

Martin
Direct Responses: 7769 | Write a response
Posted on Fri Apr 25 22:55:16 2008 by rhumbliner in response to 7764
Re: retrieving output
now we're getting somewhere! :-) i admit i know next to nothing about Class::Std so i guess i need to read up on that. as i pointed out earlier, calling get_FOO() never returns a list of valid methods, so your example:

Can't locate object method "get_FOO" via package "MyTypes::testComplexTypeAll". Valid methods are: get_Test_2, set_Test_2, get_Test_1, set_Test_1


doesn't apply to me. all i get is a null list:
Can't locate object method "get_FOO" via package "MyTypes::testComplexTypeAll". Valid methods are:


whether this is a bug in SOAP::WSDL or the wsdl i'm using is beyond my capabilities, but i'm happy to let you analyze the wsdl. it's only 79 lines long.

anway, i don't know how you figured out to try the call get_QryResult() but that started me down the path. $response gives me a QryResult object which gives me a StrXML object which gives me a SOAP::WSDL::XSD::Typelib::Builtin::string (i realize QryResult and StrXML are unique to my wsdl). i then just print the string.

so, basically, i think i'm up and running. thanks so much for your help. drinks are on me next time you're in vegas.

tom
Write a response
[ home | FAQ | about | stats | new post | login | register | tags ]
Do you want to spoil my kids? Here is my Amazon wishlist
Service launched on 2nd of February 2005.
Comments, and other submissions on CPAN Forum are Copyright 2005-2007, their respective owners.
Site maintainer is not responsible for content. Privacy Policy
Maintained and hosted by Gabor Szabo at Perl Training Israel
See also World Wide Perl Training