[Treebase-guts] SF.net SVN: treebase:[24] trunk/treebase-core/src/main/perl/dump/sqldump

[<rv...@us...>]

Revision: 24
          http://treebase.svn.sourceforge.net/treebase/?rev=24&view=rev
Author:   rvos
Date:     2009-06-11 06:10:07 +0000 (Thu, 11 Jun 2009)

Log Message:
-----------
Partially implemented get_all_tables()

Modified Paths:
--------------
    trunk/treebase-core/src/main/perl/dump/sqldump

Modified: trunk/treebase-core/src/main/perl/dump/sqldump
===================================================================
--- trunk/treebase-core/src/main/perl/dump/sqldump	2009-06-11 06:01:41 UTC (rev 23)
+++ trunk/treebase-core/src/main/perl/dump/sqldump	2009-06-11 06:10:07 UTC (rev 24)
@@ -113,7 +113,14 @@
 exit 0;
 
 sub get_all_tables {
-	
+	my $dbh = get_handle();
+	my $sth = $dbh->preparse('show tables');
+	#my @fetched_tables;
+	use Data::Dumper;
+	$sth->execute();
+	while ( my $row = $sth->fetchrow_arrayref ) {
+		warn Dumper($row);
+	}	
 }
 
 sub get_handle {


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.