[MOBY-l] Re: Four new services

[Ken Steube]

Fixed, now if the At# is not found I return

  MOBY::CommonSubs::simpleResponse("", "");

as my result from plantspGetPSeqFromAGI, plantspGetDSeqFromAGI and
plantspGetRSeqFromAGI services.

BTW I'm going to change the authURI on my plantsp* services
today.

Ken

On Mon, 20 Oct 2003, Rebecca Ernst wrote:

> Hi Ken!
>
> thanks, with that ID it works fine *but* if I give it an empty ID it
> also gives me back some Protein Sequence (no idea from which locus!).
>
> if you give it a At# code that is unknown you get back a lenght that is
> 13 but should rather be 0 I suppose.
>
> Rebecca.
>
> Ken Steube wrote:
>
> >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.
> >>
> >>
> >
> >
> >------------------------------------------------------------------------
> >
> >#!/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";
> >
> >
> >------------------------------------------------------------------------
> >
> >_______________________________________________
> >moby-l mailing list
> >moby-l at biomoby.org
> >http://biomoby.org/mailman/listinfo/moby-l
> >
>
>

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