From 77b21ad273f6da6a3c6b221da3bc867b3962ca39 Mon Sep 17 00:00:00 2001 From: Thorsten Schöning Date: Fri, 23 Nov 2012 00:35:19 +0100 Subject: Bug 385283: bz_webservice_demo.pl --product-name fails (Product.get_product no longer exists) Part 2: correctly display components, milestones and versions r/a=LpSolit --- contrib/bz_webservice_demo.pl | 26 +++++++++++++++++--------- 1 file changed, 17 insertions(+), 9 deletions(-) diff --git a/contrib/bz_webservice_demo.pl b/contrib/bz_webservice_demo.pl index 32b9e27a1..3b87cf5b5 100755 --- a/contrib/bz_webservice_demo.pl +++ b/contrib/bz_webservice_demo.pl @@ -301,16 +301,24 @@ The call will return a C object. if ($product_name) { $soapresult = $proxy->call('Product.get', {'names' => [$product_name]}); _die_on_fault($soapresult); - $result = $soapresult->result; - - if (ref($result) eq 'HASH') { - $result = $result->{'products'}->[0]; - foreach (keys(%$result)) { - print "$_: $result->{$_}\n"; + $result = $soapresult->result()->{'products'}->[0]; + + # Iterate all entries, the values may be scalars or array refs with hash refs. + foreach my $key (sort(keys %$result)) { + my $value = $result->{$key}; + + if (ref($value)) { + my $counter = 0; + foreach my $hash (@$value) { + while (my ($innerKey, $innerValue) = each %$hash) { + print "$key.$counter.$innerKey: $innerValue\n"; + } + ++$counter; } - } - else { - print "$result\n"; + } + else { + print "$key: $value\n" + } } } -- cgit v1.2.3-24-g4f1b