[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Wed Mar  5 10:50:00 EST 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv7437/MOBY

Modified Files:
	Central.pm 
Log Message:
and again
moby-live/Perl/MOBY Central.pm,1.15,1.16
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -r1.15 -r1.16
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/03/05 15:46:42	1.15
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/03/05 15:50:00	1.16
@@ -2528,15 +2528,14 @@
 
 sub DUMP {
 	my ($pkg) = @_;
-    my $filename = "./MOBY/central.cfg";# $self->config;
-	$debug && &_LOG("trying to open file $filename\n");
-	open (IN, $filename) || die "can't open configuration file $filename:  $!";
-	my $url = <IN>; chomp $url;
-	my $dbname = <IN>; chomp $dbname;
-	my $username = <IN>; chomp $username;
-	my $password = <IN>; chomp $password;
 	open (IN, "mysqldump -u moby_external MOBY_Central |");
-	return <IN>;
+	my @response;
+	while (<IN>){
+		push @response, $_;
+	}
+	$debug && &_LOG("dump @response\n\n");
+	
+	return (join "\n", @response);
 	
 }