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