[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/Docs/asyncDocs/async-MOBY-test
In directory dev.open-bio.org:/tmp/cvs-serv18625/Docs/asyncDocs/async-MOBY-test

Modified Files:
	AsyncService.pm async-MOBY-test.cgi.pl 
Added Files:
	OtherService.pm multasync-MOBY-test.cgi 
	multasync-MOBY-test.cgi.pl 
Log Message:
*	Documentation and examples about multiple asynchronous services
	has been added.
*	Some cosmetic fixes.

moby-live/Docs/asyncDocs/async-MOBY-test OtherService.pm,NONE,1.1 multasync-MOBY-test.cgi,NONE,1.1 multasync-MOBY-test.cgi.pl,NONE,1.1 AsyncService.pm,1.3,1.4 async-MOBY-test.cgi.pl,1.2,1.3
===================================================================
RCS file: /home/repository/moby/moby-live/Docs/asyncDocs/async-MOBY-test/AsyncService.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- /home/repository/moby/moby-live/Docs/asyncDocs/async-MOBY-test/AsyncService.pm	2008/06/30 10:31:26	1.3
+++ /home/repository/moby/moby-live/Docs/asyncDocs/async-MOBY-test/AsyncService.pm	2008/08/29 14:03:16	1.4
@@ -3,8 +3,8 @@
 use SOAP::Lite;
 use MOBY::CommonSubs qw(:all); 
 use MOBY::Async::SimpleServer;
-use vars qw(@ISA);
- at ISA = qw(MOBY::Async::SimpleServer);
+
+use base qw(MOBY::Async::SimpleServer);
 
 # This variable is a subroutine which carry out the core of the service
 my $sayHello = sub

===================================================================
RCS file: /home/repository/moby/moby-live/Docs/asyncDocs/async-MOBY-test/async-MOBY-test.cgi.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- /home/repository/moby/moby-live/Docs/asyncDocs/async-MOBY-test/async-MOBY-test.cgi.pl	2008/04/23 13:08:10	1.2
+++ /home/repository/moby/moby-live/Docs/asyncDocs/async-MOBY-test/async-MOBY-test.cgi.pl	2008/08/29 14:03:16	1.3
@@ -3,6 +3,7 @@
 use SOAP::Transport::HTTP;
 
 use MOBY::Async::WSRF;
+use MOBY::Async::SimpleServer;
 
 use AsyncService; # the name of your Service modules
 
@@ -16,10 +17,8 @@
 $server->dispatch_with({
          $WSRF::Constants::MOBY.'#sayHello'        => 'AsyncService',
          $WSRF::Constants::MOBY.'#sayHello_submit' => 'AsyncService',
-         $WSRF::Constants::MOBY.'#sayGoodbye'        => 'AsyncService',
-         $WSRF::Constants::MOBY.'#sayGoodbye_submit' => 'AsyncService',
-         $WSRF::Constants::WSRPW.'/GetResourceProperty/GetResourcePropertyRequest' => 'AsyncService',
-	 $WSRF::Constants::WSRPW.'/GetMultipleResourceProperties/GetMultipleResourcePropertiesRequest' => 'AsyncService',
-	 $WSRF::Constants::WSRLW.'/ImmediateResourceTermination/DestroyRequest' => 'AsyncService',
+         $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();