#!/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 UCDs
    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;