[MOBY-l] 411 length required error?

[Ken Steube]

The script you are running is the dispatcher CGI.  Its job is to
receive requests to run services, and it's not the script you use if
you want to simple run a service.  The Length Required message is what
you expect to see if you run this script at the command line.

I've included a script to run the GetGoTerm service here:

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

use MOBY::Client::Central;
use MOBY::Client::Service;

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

my ($Services, $REG) = $Central->findService(
  authURI => 'www.illuminae.com',
  serviceName => 'getGoTerm',
);
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="go" id="0003674"/>}] ]
) || 'No result';

print $result, "\n";

If instead you'd like to set up your own service in perl then you
should go to http://plantgenome.sdsc.edu/mobyed2/Fasta_Service and try
my FASTA example service.  It's intended to be complete and easy to set
up.

Ken

On Mon, 17 Nov 2003, Michael Jensen wrote:

>
> I am following the "Creating Services" page on biomoby.org in just
> trying to get the basic sample service to work, and I get this:
>
> Status: 411 Length Required
>
>
> When I run the following script, do I need to pass something in? I
> tried a few things but to no avail.
>
> #!/usr/bin/perl -w
> use SOAP::Transport::HTTP;
> use lib "/Users/michaeljensen/Sites/cgi-bin/";
> use MOBY::LocalServices;
>
> #use MOBY::OtherLocalServices;
> my $Server = new SOAP::Transport::HTTP::CGI;
> #$Server->dispatch_with({
> # 'http://biomoby.org/#GetGoTerm' => 'MOBY::LocalServices',
> #'http://biomoby.org/#GetOtherSequence' => 'MOBY::OtherLocalServices',
> #'http://biomoby.org/#YetAnotherService' =>
> 'MOBY::OtherLocalServices',});
>
> $Server->dispatch_with({'http://biomoby.org/#GetGoTerm' =>
> 'MOBY::LocalServices',});
>
> $Server->handle();
>
>
> I'm new to this biomoby stuff, so any help would be appreciated.
> Thanks!!
>
> -Michael Jensen
> mdjgf8 at mizzou.edu
>
>
>
> _______________________________________________
> 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