[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Fri Feb  2 10:11:23 EST 2007
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory dev.open-bio.org:/tmp/cvs-serv16150

Modified Files:
	Central.pm 
Log Message:
the wsdl returned for async was following the post template. this resulted in incorrect service locations, etc. Thanks romina
moby-live/Perl/MOBY Central.pm,1.276,1.277
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.276
retrieving revision 1.277
diff -u -r1.276 -r1.277
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2007/01/30 14:34:17	1.276
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2007/02/02 15:11:23	1.277
@@ -3254,9 +3254,6 @@
 	$desc =~ s"\<"&lt;"g;  # XMl encode now that it is not CDATAd
 	$desc =~ s"\>"&gt;"g;  # XML encode now that it is not CDATAd
 	my $URL    = $SI->url;
-    $URL =~ "(http://[^/]+)(/.*)";
-    my $baseURL = $1;
-	my $relativeURL = $2;
 	my $IN     = "NOT_YET_DEFINED_INPUTS";
 	my $OUT    = "NOT_YET_DEFINED_OUTPUTS";
 	my $INxsd  = &_getInputXSD( $InputXML, $SecondaryXML );
@@ -3265,9 +3262,9 @@
 	$OUTxsd ||= "<NOT_YET_IMPLEMENTED_OUTPUT_XSD/>";
 	$wsdl =~ s/MOBY__SERVICE__NAME__/$serviceName/g;    # replace all of the goofy portbindingpottype crap
 	$wsdl =~s/\<\!\-\-\s*MOBY__SERVICE__DESCRIPTION\s*\-\-\>/Authority: $AuthURI  -  $desc/g;    # add a sensible description
-	$wsdl =~ s/MOBY__SERVICE__URL/$baseURL/g;    # the URL to the service
-	$wsdl =~ s/MOBY__SERVICE__POST/$relativeURL/g;    # the URL to the service
+	$wsdl =~ s/MOBY__SERVICE__URL/$URL/g;    # the URL to the service
 	$wsdl =~ s/MOBY__SERVICE__NAME/$serviceName/g;    # finally replace the actual subroutine call
+	return $wsdl
 	return $wsdl;
 }