1#!perl -w
2#!d:\perl\bin\perl.exe
3
4# -- UDDI::Lite -- soaplite.com -- Copyright (C) 2001 Paul Kulchenko --
5
6# You may run these tests/examples for UDDI publishing API against
7# UDDI registry that was kindly provided with following disclamer:
8# "This is a free registry provided by XMethods.net and
9# implemented using GLUE platform (Graham Glass, TheMindElectric)."
10# Thanks to Tony Hong for his help and support
11
12use strict;
13use UDDI::Lite
14  import => 'UDDI::Data',
15  import => 'UDDI::Lite',
16  proxy => "https://uddi.xmethods.net:8005/glue/publish/uddi",
17;
18
19my $name = 'Sample business ' . $$ . time; # just to make it unique
20
21print "Authorizing...\n";
22my $auth = get_authToken({userID => 'soaplite', cred => 'soaplite'})->authInfo;
23my $busent = businessEntity(name($name))->businessKey('');
24
25print "Saving business '$name'...\n";
26my $newent = save_business($auth, $busent)->businessEntity;
27my $newkey = $newent->businessKey;
28
29print "Created...\n";
30print $newkey, "\n";
31print $newent->discoveryURLs->discoveryURL, "\n";
32
33print "Deleting '$newkey'...\n";
34my $result = delete_business($auth, $newkey)->result;
35
36print $result->errInfo, "\n";
37