The WSDL file of this XML Web Service

The following example shows how to use this XML Web Service in a Perl script

example of use : perl -I path-to-SOAP-Lite-0.55/lib ./ucd "phot.mag;em.opt.V"

# Begin FILE
#!/usr/bin/perl

  use SOAP::Lite;

  my $service = SOAP::Lite->service("http://cdsws.u-strasbg.fr/axis/services/UCD?wsdl");

  my $result;
  eval { $result = $service->explain($ARGV[0]); };

  if ( $@ ) {
     # Check for errors
     my $status = $service->transport()->status();
     print "Transport Status: " . $status . "\n";
     print "Error: $@";
     exit;
  }

  print $result;

#End FILE

---

©ULP/CNRS - CDS, 11 rue de l'Université, 67000 Strasbourg, France