/usr/share/doc/libsoap-lite-perl/examples/UDDI/syntax1.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 | #!/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',
proxy => "https://some.server.com/endpoint_fot_publishing_API",
;
my $name = 'Sample business';
print "Authorizing...\n";
my $auth = get_authToken({userID => 'USERID', cred => 'CRED'})->authInfo;
my $tmodel = tModelInstanceInfo(description('some tModel'))->tModelKey('UUID:C1ACF26D-9672-4404-9D70-39B756E62AB4');
my $tmodels = tModelInstanceDetails($tmodel);
my $bindtmpl = bindingTemplate([accessPoint('someurl'), $tmodels]);
my $bindtmpls = bindingTemplates($bindtmpl);
my $bussvc = businessService([name('Test Service'), $bindtmpls]);
my $bussvcs = businessServices($bussvc);
my $busent = businessEntity([name($name), $bussvcs])->businessKey('');
print "Saving business '$name'...\n";
my $newent = save_business($auth, $busent)->businessEntity;
my $newkey = $newent->businessKey;
|