[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu May  8 13:52:27 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv1931/Perl/MOBY

Modified Files:
	Central.pm 
Log Message:
got the perl client to create correct XML for service registration
moby-live/Perl/MOBY Central.pm,1.28,1.29
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -r1.28 -r1.29
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/08 16:20:04	1.28
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/08 17:52:27	1.29
@@ -2420,6 +2420,7 @@
 
 sub retrieveService { 
 	my ($pkg,  $payload) = @_;
+	return "<Services>NOT YET IMPLEMENTED</Services>";
 	my ($AuthURI, $serviceName) = &_retrieveServicePayload($payload);
 	unless ($AuthURI && $serviceName){return "<Services/>"}
 	my $SI = MOBY::service_instance->new(authority_uri => $AuthURI, servicename => $serviceName);
@@ -2712,6 +2713,12 @@
 
 sub ISA {
 	my ($pkg, $payload) = @_;
+
+    my $response = "<Objects>\n";
+		$response .="<NOT_YET_IMPLEMENTED/>\n";
+    $response .= "</Objects>\n";
+	return $response;	
+
 	my $obj = &_ISAPayload($payload);
 	my ($dbh, $sth_hash) = &_dbAccess;
 	my %sth = %{$sth_hash};
@@ -2760,7 +2767,7 @@
 
 sub DUMP {
 	my ($pkg) = @_;
-	open (IN, "/usr/local/bin/mysqldump -u moby_external MOBY_Central |");
+	open (IN, "/usr/local/bin/mysqldump -u mobycentral mobycentral |");
 	my @response;
 	while (<IN>){
 		push @response, $_;