[MOBY-guts] biomoby commit
José Manuel RodrÃguez Carrasco
jmrc at dev.open-bio.org
Wed Apr 23 13:08:11 UTC 2008
jmrc
Wed Apr 23 09:08:10 EDT 2008
Update of /home/repository/moby/moby-live/Docs/asyncDocs/async-MOBY-test
In directory dev.open-bio.org:/tmp/cvs-serv11953/Docs/asyncDocs/async-MOBY-test
Modified Files:
AsyncService.pm async-MOBY-test.cgi.pl
sayHello-description.xml sayHello.wsdl
Log Message:
* MOBY WSRF implementation was not WSRF compliant in some points, and the same
happened with sample code. Both the libraries and the generated WSDL have been
fixed.
* Detection of WSRF::Lite libraries has been slightly improved.
* Specifications have been updated to v2.4.2, reflecting the changes made in
the library and fixing some explanations and examples (see changelog inside
specifications).
moby-live/Docs/asyncDocs/async-MOBY-test AsyncService.pm,1.1,1.2 async-MOBY-test.cgi.pl,1.1,1.2 sayHello-description.xml,1.1,1.2 sayHello.wsdl,1.1,1.2
===================================================================
RCS file: /home/repository/moby/moby-live/Docs/asyncDocs/async-MOBY-test/AsyncService.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- /home/repository/moby/moby-live/Docs/asyncDocs/async-MOBY-test/AsyncService.pm 2008/03/10 12:31:31 1.1
+++ /home/repository/moby/moby-live/Docs/asyncDocs/async-MOBY-test/AsyncService.pm 2008/04/23 13:08:10 1.2
@@ -4,7 +4,7 @@
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.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- /home/repository/moby/moby-live/Docs/asyncDocs/async-MOBY-test/async-MOBY-test.cgi.pl 2008/03/10 12:31:31 1.1
+++ /home/repository/moby/moby-live/Docs/asyncDocs/async-MOBY-test/async-MOBY-test.cgi.pl 2008/04/23 13:08:10 1.2
@@ -9,14 +9,17 @@
my $server = new SOAP::Transport::HTTP::CGI;
$server->serializer(WSRF::Serializer->new);
$server->deserializer(WSRF::Deserializer->new);
+
+# Magic! It works!
+$server->on_action(sub{});
+
$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::WSRP => 'AsyncService',
- $WSRF::Constants::WSRL => 'AsyncService',
-
-
+ $WSRF::Constants::WSRPW.'/GetResourceProperty/GetResourcePropertyRequest' => 'AsyncService',
+ $WSRF::Constants::WSRPW.'/GetMultipleResourceProperties/GetMultipleResourcePropertiesRequest' => 'AsyncService',
+ $WSRF::Constants::WSRLW.'/ImmediateResourceTermination/DestroyRequest' => 'AsyncService',
});
$server->handle();
===================================================================
RCS file: /home/repository/moby/moby-live/Docs/asyncDocs/async-MOBY-test/sayHello-description.xml,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- /home/repository/moby/moby-live/Docs/asyncDocs/async-MOBY-test/sayHello-description.xml 2008/03/10 12:31:31 1.1
+++ /home/repository/moby/moby-live/Docs/asyncDocs/async-MOBY-test/sayHello-description.xml 2008/04/23 13:08:10 1.2
@@ -3,7 +3,7 @@
<serviceType lsid="urn:lsid:biomoby.org:servicetype:Annotations:2001-09-21T16-00-00Z">Annotations</serviceType>
<authoritative>0</authoritative>
<Category>moby-async</Category>
- <Description><![CDATA[MOBY services that check the Async MBOY libraries]]></Description>
+ <Description><![CDATA[MOBY services that check the Async MOBY libraries]]></Description>
<contactEmail>jmrodriguez at cnio.es</contactEmail>
<signatureURL/>
<URL>http://ubio.bioinfo.cnio.es/inb/cgi-bin/async-MOBY-test/async-MOBY-test.cgi</URL>
@@ -19,4 +19,4 @@
</Output>
<secondaryArticles/>
</Service>
-</Services>
\ No newline at end of file
+</Services>
===================================================================
RCS file: /home/repository/moby/moby-live/Docs/asyncDocs/async-MOBY-test/sayHello.wsdl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- /home/repository/moby/moby-live/Docs/asyncDocs/async-MOBY-test/sayHello.wsdl 2008/03/10 12:31:31 1.1
+++ /home/repository/moby/moby-live/Docs/asyncDocs/async-MOBY-test/sayHello.wsdl 2008/04/23 13:08:10 1.2
@@ -130,7 +130,7 @@
<wsdl:binding name="WSRF_Operations_Binding" type="tns:WSRF_Operations_PortType">
<soap:binding style="document" transport="http://schemas.xmlsoap.org/soap/http"/>
<wsdl:operation name="GetResourceProperty">
- <soap:operation />
+ <soap:operation soapAction="http://docs.oasis-open.org/wsrf/rpw-2/GetResourceProperty/GetResourcePropertyRequest"/>
<wsdl:input>
<soap:body use="literal"/>
</wsdl:input>
@@ -148,7 +148,7 @@
</wsdl:fault>
</wsdl:operation>
<wsdl:operation name="GetMultipleResourceProperties">
- <soap:operation />
+ <soap:operation soapAction="http://docs.oasis-open.org/wsrf/rpw-2/GetMultipleResourceProperties/GetMultipleResourcePropertiesRequest"/>
<wsdl:input>
<soap:body use="literal"/>
</wsdl:input>
@@ -166,7 +166,7 @@
</wsdl:fault>
</wsdl:operation>
<wsdl:operation name="Destroy">
- <soap:operation />
+ <soap:operation soapAction="http://docs.oasis-open.org/wsrf/rlw-2/ImmediateResourceTermination/DestroyRequest"/>
<wsdl:input>
<soap:body use="literal"/>
</wsdl:input>
@@ -193,4 +193,4 @@
<soap:address location="http://ubio.bioinfo.cnio.es/inb/cgi-bin/async-MOBY-test/async-MOBY-test.cgi"/>
</wsdl:port>
</wsdl:service>
-</wsdl:definitions>
\ No newline at end of file
+</wsdl:definitions>
More information about the MOBY-guts
mailing list