1#!perl -w
2#!d:\perl\bin\perl.exe
3
4# -- UDDI::Lite -- soaplite.com -- Copyright (C) 2001 Paul Kulchenko --
5
6use UDDI::Lite
7  import => 'UDDI::Data',
8  import => 'UDDI::Lite',
9  proxy => 'http://www-3.ibm.com/services/uddi/inquiryapi'
10;
11
12$\="\n"; $,=", "; # specify separators for print()
13
14my($serviceInfo) = grep { $_->name =~ /stock quote/i } find_business(name('XMethods'))
15  -> businessInfos
16  -> businessInfo
17  -> serviceInfos
18  -> serviceInfo
19;
20
21print $serviceInfo->name, $serviceInfo->serviceKey;
22
23my $bindingTemplate = get_serviceDetail($serviceInfo->serviceKey)
24  -> businessService
25  -> bindingTemplates
26  -> bindingTemplate
27;
28
29my $accessPoint = $bindingTemplate->accessPoint->value;
30my $tModelKey = $bindingTemplate
31  -> tModelInstanceDetails
32  -> tModelInstanceInfo
33  -> tModelKey
34;
35
36print $accessPoint, $tModelKey;
37
38my $wsdl = get_tModelDetail($tModelKey)
39  -> tModel
40  -> overviewDoc
41  -> overviewURL
42  -> value
43;
44
45print $wsdl;
46
47print SOAP::Lite->service($wsdl)->proxy($accessPoint)->getQuote('MSFT');
48