[MOBY-guts] biomoby commit
Mark Wilkinson
mwilkinson at pub.open-bio.org
Sat Aug 16 20:57:50 UTC 2003
mwilkinson
Sat Aug 16 16:57:50 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv7440
Modified Files:
Central.pm
Log Message:
redefined the variable by accident
moby-live/Perl/MOBY Central.pm,1.101,1.102
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.101
retrieving revision 1.102
diff -u -r1.101 -r1.102
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm 2003/08/16 20:30:09 1.101
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm 2003/08/16 20:57:50 1.102
@@ -2406,10 +2406,10 @@
#open (WSDL, "./MOBY/Central_WSDL_SandR.wsdl") || die "can't open WSDL file for search and replace\n";
#my $wsdl = join "", (<WSDL>);
my $wsdl = $WSDL_TEMPLATE;
- $wsdl =~ s/^\n//gs;
+ $wsdl =~ s/^\n//gs;
#close WSDL;
# do substitutions
-
+
my $serviceName = $SI->servicename;
my $AuthURI = $SI->authority_uri;
my $desc = $SI->description;
@@ -2814,7 +2814,7 @@
-my $WSDL_TEMPLATE = <<END;
+$WSDL_TEMPLATE = <<END;
<?xml version="1.0"?>
<definitions name="MOBY_Central_Generated_WSDL"
targetNamespace="http://biomoby.org/Central.wsdl"
@@ -2876,3 +2876,4 @@
1;
+
More information about the MOBY-guts
mailing list