[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Wed Jun 25 17:07:09 EDT 2003
Update of /home/repository/moby/moby-live/Perl/scripts
In directory pub.open-bio.org:/tmp/cvs-serv16808

Modified Files:
	Services.cgi 
Log Message:
put an example MOBY Service, and the CGI that serves it, into the Perl/scripts part of the repository.  This is the script that is run at the moment when you leave teh deafults in the new CGI client (which I am about to announce).

moby-live/Perl/scripts Services.cgi,1.1,1.2
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/Services.cgi,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- /home/repository/moby/moby-live/Perl/scripts/Services.cgi	2003/02/19 23:07:18	1.1
+++ /home/repository/moby/moby-live/Perl/scripts/Services.cgi	2003/06/25 21:07:09	1.2
@@ -1,13 +1,11 @@
 #!/usr/bin/perl -w
 # _________________________________________________________________
-
-
 use SOAP::Transport::HTTP;
-use lib "./";
-use MOBY::Services::BasicLocalServices;
+use lib "/usr/local/apache/cgi-bin";
+use Services::LocalServices;
 
 my $x = new SOAP::Transport::HTTP::CGI;
-$x->dispatch_with({'http://biomoby.org/#ExampleService' => 'MOBY::Services::BasicLocalServices'});
-$x->handle;
 
+$x->dispatch_with({'http://biomoby.org/#getGoTerm' => 'Services::LocalServices'});
+$x->handle;