[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri Oct 17 17:29:52 EDT 2003
Update of /home/repository/moby/moby-live/Perl/scripts
In directory pub.open-bio.org:/tmp/cvs-serv25355/scripts

Modified Files:
	Services.cgi 
Log Message:
bug fixes as per Martins reports

moby-live/Perl/scripts Services.cgi,1.3,1.4
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/Services.cgi,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- /home/repository/moby/moby-live/Perl/scripts/Services.cgi	2003/08/16 21:18:31	1.3
+++ /home/repository/moby/moby-live/Perl/scripts/Services.cgi	2003/10/17 21:29:52	1.4
@@ -2,11 +2,24 @@
 # _________________________________________________________________
 use SOAP::Transport::HTTP;
 use lib "/usr/local/apache/cgi-bin";
+use lib "/usr/local/apache/cgi-bin/BIO/moby-live/Perl";
+use lib "/usr/local/apache/cgi-bin/BIO/core/Perl";
 use Services::LocalServices;
 use strict;
 
 my $x = new SOAP::Transport::HTTP::CGI;
 
-$x->dispatch_with({'http://biomoby.org/#getGoTerm' => 'Services::LocalServices'});
+$x->dispatch_with({
+'http://biomoby.org/#getGoTerm' => 'Services::LocalServices',
+'http://biomoby.org/#getGoTermAssociations' => 'Services::LocalServices',
+'http://biomoby.org/#GenbankAccVirtualSequenceRetrieve' => 'Services::LocalServices',
+'http://biomoby.org/#GenbankAccSequenceRetrieve' => 'Services::LocalServices',
+'http://biomoby.org/#GenbankGIVirtualSequenceRetrieve' => 'Services::LocalServices',
+'http://biomoby.org/#GenbankGISequenceRetrieve' => 'Services::LocalServices',
+'http://biomoby.org/#GenbankCompleteSequenceRetrieve' => 'Services::LocalServices',
+'http://biomoby.org/#RetrieveGOFromKeywords' => 'Services::LocalServices',
+'http://biomoby.org/#getDragonMutantImages' => 'Services::LocalServices',
+
+});
 $x->handle;