[MOBY-l] sample code of Central.call method

[Ken Steube]

Try this one:




#!/usr/local/bin/perl5.6.1
use warnings 'all';
use strict;

use lib '/scratch/s1/MOBY/MOBY';
use MOBY::Client::Central;
use MOBY::Client::Service;

my $Central = MOBY::Client::Central->new();

my ($Services, $REG) = $Central->findService(
  authURI => 'www.sdsc.edu',
  serviceName => 'plantspGetPSeqFromAGI',
);
unless ($Services) { print "Discovery failed: ", $REG->message; exit(1); }

my $svc = $Services->[0];
print "Executing service ", $svc->name, "\n", $svc->description, "\n\n";
my $wsdl = $Central->retrieveService($svc);
my $S = MOBY::Client::Service->new(service => $wsdl);
my $result = $S->execute(
  XMLinputlist => [ ['', qq{<Object namespace='AGI_LocusCode' id='At5g08590'/>}] ]
) || 'No result';

print $result, "\n";




I will change the name of this service from plantspGetPSeqFromAGI to plantspGetProtein sometime soon.

Ken


On Tue, 4 Nov 2003, Yasumasa Shigemoto wrote:
> I am a beginner of biomoby and I am tring to
> access with using Java API.
>
> Would you give me a sample program of
> Central.call(methodName, inputXML) method?
>
> Regards,
> Yasumasa Shigemoto

-------------------------------------
Ken Steube            steube at sdsc.edu
San Diego Supercomputer Center @ UCSD
San Diego, California             USA