/usr/share/doc/libsoap-lite-perl/examples/UDDI/publish1.pl is in libsoap-lite-perl 0.714-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 | #!/usr/bin/perl -w
#!d:\perl\bin\perl.exe
# -- UDDI::Lite -- soaplite.com -- Copyright (C) 2001 Paul Kulchenko --
# You may run these tests/examples for UDDI publishing API against
# UDDI registry that was kindly provided with following disclamer:
# "This is a free registry provided by XMethods.net and
# implemented using GLUE platform (Graham Glass, TheMindElectric)."
# Thanks to Tony Hong for his help and support
use strict;
use UDDI::Lite
import => 'UDDI::Data',
import => 'UDDI::Lite',
proxy => "https://uddi.xmethods.net:8005/glue/publish/uddi",
;
my $name = 'Sample business ' . $$ . time; # just to make it unique
print "Authorizing...\n";
my $auth = get_authToken({userID => 'soaplite', cred => 'soaplite'})->authInfo;
my $busent = businessEntity(name($name))->businessKey('');
print "Saving business '$name'...\n";
my $newent = save_business($auth, $busent)->businessEntity;
my $newkey = $newent->businessKey;
print "Created...\n";
print $newkey, "\n";
print $newent->discoveryURLs->discoveryURL, "\n";
print "Deleting '$newkey'...\n";
my $result = delete_business($auth, $newkey)->result;
print $result->errInfo, "\n";
|