[MOBY-guts] biomoby commit

[José Manuel Rodríguez Carrasco]

jmrc
Fri Aug 29 10:03:16 EDT 2008
Update of /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY
In directory dev.open-bio.org:/tmp/cvs-serv18625/Perl/MOBY-Server/lib/MOBY

Modified Files:
	Async.pm 
Log Message:
*	Documentation and examples about multiple asynchronous services
	has been added.
*	Some cosmetic fixes.

moby-live/Perl/MOBY-Server/lib/MOBY Async.pm,1.3,1.4
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Async.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Async.pm	2008/04/23 13:08:11	1.3
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Async.pm	2008/08/29 14:03:16	1.4
@@ -60,10 +60,11 @@
 B<dispatcher.cgi>
 
   #!/usr/bin/perl
-  BEGIN { @INC = ("/path/to/my/libs", @INC); } 
+  use lib "/path/to/my/libs";
   use strict;
   use SOAP::Transport::HTTP;
   use MOBY::Async::WSRF;
+  use MOBY::Async::SimpleServer;
   use HelloWorld;
 
   my $server = new SOAP::Transport::HTTP::CGI;
@@ -73,9 +74,9 @@
   $server->dispatch_with({
     $WSRF::Constants::MOBY.'#sayHello'        => 'HelloWorld',
     $WSRF::Constants::MOBY.'#sayHello_submit' => 'HelloWorld',
-    $WSRF::Constants::WSRPW.'/GetResourceProperty/GetResourcePropertyRequest' => 'HelloWorld',
-    $WSRF::Constants::WSRPW.'/GetMultipleResourceProperties/GetMultipleResourcePropertiesRequest' => 'HelloWorld',
-    $WSRF::Constants::WSRLW.'/ImmediateResourceTermination/DestroyRequest' => 'HelloWorld',
+    $WSRF::Constants::WSRPW.'/GetResourceProperty/GetResourcePropertyRequest' => 'MOBY::Async::SimpleServer',
+    $WSRF::Constants::WSRPW.'/GetMultipleResourceProperties/GetMultipleResourcePropertiesRequest' => 'MOBY::Async::SimpleServer',
+    $WSRF::Constants::WSRLW.'/ImmediateResourceTermination/DestroyRequest' => 'MOBY::Async::SimpleServer',
   });
   $server->handle();