[MOBY-guts] biomoby commit

Mark Wilkinson mwilkinson at pub.open-bio.org
Wed Mar 5 15:22:01 UTC 2003


mwilkinson
Wed Mar  5 10:22:01 EST 2003
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv6990/Perl/MOBY/Client

Modified Files:
	Central.pm 
Log Message:
added method DUMP to get a dump of the database.  Might not work.  Testing it now.
moby-live/Perl/MOBY/Client Central.pm,1.4,1.5
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/02/21 04:10:25	1.4
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/03/05 15:22:01	1.5
@@ -1062,6 +1062,30 @@
 
 
 
+=head2 DUMP
+
+ Title     :	DUMP
+ Usage     :	$objects = $MOBY->DUMP(['registry'])
+ Function  :	DUMP the mysql for the current MOBY Central database
+ Returns   :	text
+ Args      :	$reg - name of MOBY Central you want to use if not default
+                
+=cut
+
+
+sub DUMP {
+	my ($self)= shift;
+	my ($reg) = shift;
+	my $type = shift;
+
+	$reg =$reg?$reg:$self->default_MOBY_servername;
+	return undef unless ($self->SOAP_connection($reg));
+	my $return = $self->SOAP_connection($reg)->call('DUMP')->paramsall;	
+    return $return;    
+}
+
+
+
 sub ISA {
 	my ($self)= shift;
 	my ($obj) = shift;



More information about the MOBY-guts mailing list