[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Wed Dec 19 12:02:17 EST 2007
Update of /home/repository/moby/moby-live/Perl/scripts
In directory dev.open-bio.org:/tmp/cvs-serv19194/Perl/scripts

Modified Files:
	authority.pl 
Log Message:
renamed the wsdl ports to give unique names since they all had the same name
moby-live/Perl/scripts authority.pl,1.3,1.4
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/authority.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- /home/repository/moby/moby-live/Perl/scripts/authority.pl	2007/11/07 18:06:38	1.3
+++ /home/repository/moby/moby-live/Perl/scripts/authority.pl	2007/12/19 17:02:17	1.4
@@ -77,14 +77,14 @@
 	endpoint=> "$location/authority/metadata",
 	protocol=> $LS::Authority::WSDL::Constants::Protocols::SOAP,
   );
-$authority->addPort(serviceName=> 'BioMOBY', port=> $port);
+$authority->addPort(serviceName=> 'BioMOBYSoapMeta', port=> $port);
 
 $port = LS::Authority::WSDL::Simple::MetadataPort->newMetadata(
 	portName=> 'BioMOBYHttpPort',
 	endpoint=> "$location/authority/metadata",
 	protocol=> $LS::Authority::WSDL::Constants::Protocols::HTTP,
   );
-$authority->addPort(serviceName=> 'BioMOBY', port=> $port);
+$authority->addPort(serviceName=> 'BioMOBYHttpMeta', port=> $port);
 
 #data ports
 $port = LS::Authority::WSDL::Simple::DataPort->newData(
@@ -93,13 +93,13 @@
         protocol=> $LS::Authority::WSDL::Constants::Protocols::HTTP,
   );
 
-$authority->addPort(serviceName=> 'BioMOBY', port=> $port);
+$authority->addPort(serviceName=> 'BioMOBYHttpData', port=> $port);
 $port = LS::Authority::WSDL::Simple::DataPort->newData(
         portName=> 'BioMOBYSoapPort',
         endpoint=> "$location/authority/data",
         protocol=> $LS::Authority::WSDL::Constants::Protocols::SOAP,
   );
-$authority->addPort(serviceName=> 'BioMOBY', port=> $port);
+$authority->addPort(serviceName=> 'BioMOBYSoapData', port=> $port);
 
 
 # Add the metadata service with namespaces