[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Sun Aug 17 20:16:50 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv21562

Modified Files:
	Central.pm 
Log Message:
oops, mixed up order of username and database in the dump command.  Thanks Vijay for noticing this bug                                                                                                                                                                                                                                                                      

moby-live/Perl/MOBY Central.pm,1.102,1.103
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.102
retrieving revision 1.103
diff -u -r1.102 -r1.103
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/08/16 20:57:50	1.102
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/08/18 00:16:50	1.103
@@ -2265,39 +2265,45 @@
 
 sub DUMP {
 	my ($pkg) = @_;
-	open (IN, "/usr/local/bin/mysqldump -u mobycentral mobycentral |");
+	open (IN, "/usr/local/bin/mysqldump -u mobycentral mobycentral |") || die "can't open mobycentral for dumping";
 	my @response;
 	while (<IN>){
 		push @response, $_;
 	}
 	my $mobycentral = (join "", @response);
+	print STDERR "MOBYCENTRAL $mobycentral\n\n\n";
 
-	open (IN, "/usr/local/bin/mysqldump -u mobyobject mobycentral |");
+	close IN;
+	open (IN, "/usr/local/bin/mysqldump -u mobycentral mobyobject |") || die "can't open mobyobject for dumping";
 	@response = ();
 	while (<IN>){
 		push @response, $_;
 	}
 	my $mobyobject = (join "", @response);
-
-	open (IN, "/usr/local/bin/mysqldump -u mobynamespace mobycentral |");
+	print STDERR "MOBYOBJECT $mobyobject\n\n\n";
+	close IN;
+	open (IN, "/usr/local/bin/mysqldump -u mobycentral mobyservice |") || die "can't open mobyservice for dumping";
 	@response = ();
 	while (<IN>){
 		push @response, $_;
 	}
 	my $mobynamespace = (join "", @response);
-	open (IN, "/usr/local/bin/mysqldump -u mobyservice mobycentral |");
+
+	close IN;
+	open (IN, "/usr/local/bin/mysqldump -u mobycentral mobyservice |");
 	@response = ();
 	while (<IN>){
 		push @response, $_;
 	}
 	my $mobyservice = (join "", @response);
-	open (IN, "/usr/local/bin/mysqldump -u mobyrelationship mobycentral |");
+	close IN;
+	open (IN, "/usr/local/bin/mysqldump -u mobycentral mobyrelationship |");
 	@response = ();
 	while (<IN>){
 		push @response, $_;
 	}
 	my $mobyrelationship = (join "", @response);
-
+	close IN;
 	return ($mobycentral, $mobyobject, $mobyservice, $mobynamespace, $mobyrelationship);
 }