1#@!#!123s

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

Filename : inquire1.pl

back

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

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

use strict;
use UDDI::Lite
  import => 'UDDI::Data',
  import => ['UDDI::Lite' => ':find', ':get'],
  proxy => 'http://uddi.microsoft.com/inquire',
;

my @parameters = (
  findQualifiers([findQualifier('sortByNameAsc'),
                  findQualifier('caseSensitiveMatch')]),
  name('M'),

# OR

#  findQualifiers(findQualifier('sortByNameAsc',
#                               'caseSensitiveMatch')),
#  name('M'),
);

my $b = find_business(@parameters);
for ($b->businessInfos->businessInfo) {
  print $_->name, "\n";
  if ($_->name eq "Microsoft Corporation") {
    my $key = $_->businessKey;
    print "$key\n";
    my $e = get_businessDetail($key)->businessEntity;
    my @services = $e->businessServices->businessService;
    for (@services) {
      print "  ", $_->name, "\n";
    }
  }
}