[MOBY-l] Re: Four new services

[Ken Steube]

Try At5g08590 as input to plantspGetPSeqFromAGI. Our database stores
mainly proteins related to phosphorylation, transporters and ubiquitin.

The attached program is a working example. I'll check to see what happens
if given an unknown At#.

Ken

On Mon, 20 Oct 2003, Rebecca Ernst wrote:

>
> Hi Ken!
>
> I just wanted to try your services but couldn't get anything sensible
> out of them...
>
> First I tried to give it a single AGI Locus Code (e.g. At2g17950).
> Then I tried another thing. Starting with a keyword (superman) executing
> my service that gives AGI Codes for a keyword. Then I tried to send
> these codes
> to your services.
>
> The output is always the same: sequence is not available and lenght is
> 13 (always!). Am I using it the wrong way or is it still buggy?
>
> Rebecca.
>
>

-- 
-------------------------------------
Ken Steube            steube at sdsc.edu
San Diego Supercomputer Center @ UCSD
San Diego, California             USA
-------------- next part --------------
#!/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 => 'http://mobyed1.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";