Example for a
PERL call:
You must first
download/install the SOAP-lite module.
Then
download and execute the following script:
#!/usr/bin/perl
use SOAP::Lite;
my $service = SOAP::Lite->service(
"http://cdsws.u-strasbg.fr/axis/services/UCD?wsdl");
my $result;
if ($ARGV[0] =~ /^[A-Z]*_/) { # Looks like an UCD1...
print "#### resolveUCD($ARGV[0]):\n";
eval { $result = $service->resolveUCD($ARGV[0]); };
}
elsif ($ARGV[0]) { # Assume a catalog
print "#### UCDofCatalog($ARGV[0]):\n";
eval { $result = $service->UCDofCatalog($ARGV[0]); };
}
else { # No argument ==> List all UCD1
print "#### UCDList:\n";
eval { $result = $service->UCDList(); } ;
}
if ( $@ ) {
# Check for errors
my $status = $service->transport()->status();
print "Transport Status: " . $status . "\n";
print "Error: $@";
exit;
}
print $result;
For
JAVA call:
Please refer to
this page