1#@!#!123s

: / kunden / proc / self / root / usr / share / doc / libsoap-lite-perl / examples /

Filename : fullsearch.pl

back

#!/usr/bin/perl -w
#!d:\perl\bin\perl.exe

# -- UDDI::Lite -- soaplite.com -- Copyright (C) 2001 Paul Kulchenko --

use UDDI::Lite
  import => 'UDDI::Data',
  import => 'UDDI::Lite',
  proxy => 'http://www-3.ibm.com/services/uddi/inquiryapi'
;

$\="\n"; $,=", "; # specify separators for print()

my($serviceInfo) = grep { $_->name =~ /stock quote/i } find_business(name('XMethods'))
  -> businessInfos
  -> businessInfo
  -> serviceInfos
  -> serviceInfo
;

print $serviceInfo->name, $serviceInfo->serviceKey;

my $bindingTemplate = get_serviceDetail($serviceInfo->serviceKey)
  -> businessService
  -> bindingTemplates
  -> bindingTemplate
;

my $accessPoint = $bindingTemplate->accessPoint->value;
my $tModelKey = $bindingTemplate
  -> tModelInstanceDetails
  -> tModelInstanceInfo
  -> tModelKey
;

print $accessPoint, $tModelKey;

my $wsdl = get_tModelDetail($tModelKey)
  -> tModel
  -> overviewDoc
  -> overviewURL
  -> value
;

print $wsdl;

print SOAP::Lite->service($wsdl)->proxy($accessPoint)->getQuote('MSFT');