[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu Sep  1 16:04:40 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv7194/MOBY/Client

Modified Files:
	Service.pm 
Log Message:
fixed docs for Client Service, added a version attribute to the MOBY tag.

moby-live/Perl/MOBY/Client Service.pm,1.20,1.21
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Service.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -r1.20 -r1.21
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Service.pm	2005/06/30 11:47:19	1.20
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Service.pm	2005/09/01 20:04:40	1.21
@@ -66,8 +66,9 @@
 	  (
 		service      => [ undef, 'read/write' ],
 		uri          => [ undef, 'read/write' ],
-		ServiceName  => [ undef, 'read/write' ],
+		serviceName  => [ undef, 'read/write' ],
 		_soapService => [ undef, 'read/write' ],
+		smessageVersion => ['0.87', 'read'	],
 	  );
 
 	#_____________________________________________________________
@@ -123,7 +124,7 @@
 	return undef unless $wsdl;
 	my $soap = SOAP::Lite->service( "data:,$wsdl" );
 	if ( $self->uri ) { $soap->uri( $self->uri ) }
-	$self->ServiceName( &getServiceName( $soap ) );
+	$self->serviceName( &_getServiceName( $soap ) );
 	$self->_soapService( $soap );
 	return $self;
 }
@@ -219,8 +220,9 @@
 	#  this was added on January 19th, 2005 and may not work!
 	###################
 	###################
+	my $version = $self->smessageVersion();
 	$data = "<?xml version='1.0' encoding='UTF-8'?>
-	<moby:MOBY xmlns:moby='http://www.biomoby.org/moby-s'>
+	<moby:MOBY xmlns:moby='http://www.biomoby.org/moby-s' moby:smessageVersion='$version'>
 	      <moby:mobyContent>
 	          $data
 	      </moby:mobyContent>
@@ -246,11 +248,21 @@
 	return $@ ? "" : $response; # the service execution failed then pass back ""
 }
 
-=head2 ServiceName
+=head2 serviceName
 
- Title     :	ServiceName
- Usage     :	$name = $Service->name()
- Function  :	retrieve the name of your service
+ Title     :	serviceName
+ Usage     :	$name = $Service->serviceName()
+ Function  :    get the name of the service
+ Returns   :	string
+ Args      :	none
+
+=cut
+
+=head2 _getServiceName
+
+ Title     :	getServiceName
+ Usage     :	$name = $Service->getServiceName()
+ Function  :	Internal method to retrieve the name of the service from the SOAP object
  Returns   :	string
  Args      :	none