/usr/share/doc/libsoap-lite-perl/examples/UDDI/inquire1.pl is in libsoap-lite-perl 1.26-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | #!/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";
}
}
}
|