[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu Mar 18 18:10:34 EST 2004
Update of /home/repository/moby/moby-live/Perl/scripts
In directory pub.open-bio.org:/tmp/cvs-serv8029/Perl/scripts

Modified Files:
	OntologyServer debugYourService 
Log Message:
various bug fixes.  Added the ability to create a serviceNotes block.  Don't know if this will break the clients or not because I haven't tested them yet.  See CommonSubs pod (responseHeader) for details

moby-live/Perl/scripts OntologyServer,1.1,1.2 debugYourService,1.2,1.3
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/OntologyServer,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- /home/repository/moby/moby-live/Perl/scripts/OntologyServer	2004/01/11 05:51:10	1.1
+++ /home/repository/moby/moby-live/Perl/scripts/OntologyServer	2004/03/18 23:10:34	1.2
@@ -191,7 +191,7 @@
         );
         $mdata.= rdfLiteral(
             "urn:lsid:biomoby.org:serviceinstance:$auth,$name",
-            'i3csp:publishedBy',    # i3d:publishedBy
+            'dc:creator',    # i3d:publishedBy
             $auth
         );
         $mdata.= rdfLiteral(

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/debugYourService,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- /home/repository/moby/moby-live/Perl/scripts/debugYourService	2004/02/25 23:10:11	1.2
+++ /home/repository/moby/moby-live/Perl/scripts/debugYourService	2004/03/18 23:10:34	1.3
@@ -30,7 +30,7 @@
 
 
 use MOBY::Client::Central; 
-use SOAP::Lite + trace;
+use SOAP::Lite + 'trace';
 use MOBY::Client::Service;
 
 die "usage \n\n   debugservice.pl authURI serviceName mobyObjectFileName\n\n" unless $ARGV[2];
@@ -39,7 +39,7 @@
 my $object = join "", <IN>;
 
 $m = MOBY::Client::Central->new; 
-($s, $r) = $m->findService(authURI => $ARGV[0], serviceName => $ARGV[1]);
+my ($s, $r) = $m->findService(authURI => $ARGV[0], serviceName => $ARGV[1]);
 $s = shift @{$s};
 
 my $wsdl = $m->retrieveService($s);