[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Mon Aug 18 11:52:17 EDT 2008
Update of /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Async
In directory dev.open-bio.org:/tmp/cvs-serv10338/Perl/MOBY-Server/lib/MOBY/Async

Modified Files:
	WSRF.pm 
Log Message:
added a $VERSION to the module and the xml namespace declaration 'mobyws' to the soap envelope (as the example in the RFC for async services shows) 
moby-live/Perl/MOBY-Server/lib/MOBY/Async WSRF.pm,1.3,1.4
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Async/WSRF.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/WSRF.pm	2008/06/30 17:56:48	1.3
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Async/WSRF.pm	2008/08/18 15:52:17	1.4
@@ -29,6 +29,9 @@
 use strict;
 use WSRF::Lite 0.8.2.2;
 
+use vars qw /$VERSION/;
+$VERSION = sprintf "%d.%02d", q$Revision$ =~ /: (\d+)\.(\d+)/;
+
 $WSRF::WSRP::Private{queryIDs} = [];
 $WSRF::WSRP::MobyPrivatePrefixes    = ['pid', 'input'];
 $WSRF::WSRP::MobyPropertiesPrefixes = ['status', 'result'];
@@ -66,7 +69,8 @@
 		'xmlns:wsrl' => $WSRF::Constants::WSRL,
 		'xmlns:wsrp' => $WSRF::Constants::WSRP,
 		'xmlns:wsu'  => $WSRF::Constants::WSU,
-		'xmlns:wsse' => $WSRF::Constants::WSSE
+		'xmlns:wsse' => $WSRF::Constants::WSSE,
+		'xmlns:mobyws' => $WSRF::Constants::MOBY
 	} );