Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
inquire1.pl	912 B	-rw-r--r--
publish1.pl	1.12 KB	-rw-r--r--
simple1.pl	435 B	-rw-r--r--
simple2.pl	338 B	-rw-r--r--
syntax1.pl	984 B	-rw-r--r--
syntax2.pl	1.87 KB	-rw-r--r--
syntax3.pl	1.32 KB	-rw-r--r--

Code Editor : publish1.pl

#!/usr/bin/perl -w
#!d:\perl\bin\perl.exe

# 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";

${this.title}

Code Editor : publish1.pl