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

[<mjd...@us...>]

Revision: 49
          http://treebase.svn.sourceforge.net/treebase/?rev=49&view=rev
Author:   mjdominus
Date:     2009-06-12 07:04:33 +0000 (Fri, 12 Jun 2009)

Log Message:
-----------
Added test mode

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-12 07:02:15 UTC (rev 48)
+++ trunk/treebase-core/src/main/perl/dump/sqldump	2009-06-12 07:04:33 UTC (rev 49)
@@ -14,6 +14,7 @@
 my $name_file_after_table = 0; # name output file after table
 my $schema = 'TBASE2';         # name of schema to analyze
 my $zip = 0;                   # zip output
+my $test = 0;                  # test run: delete produced files
 
 # get command line options, see Getopt::Long
 GetOptions(
@@ -26,6 +27,7 @@
     'dsn=s'     => \$ENV{'TREEBASE_DB_DSN'},
     'table=s'   => \@tables,
     'zip'       => \$zip,
+    'test'      => \$test,
     'all'       => sub { @tables = get_all_tables() },
     'help|?'    => sub { pod2usage( '-verbose' => 0 )  }, # see Pod::Usage
     'man'       => sub { pod2usage( '-verbose' => 1 )  }, # see Pod::Usage
@@ -97,10 +99,18 @@
         # write insert statements
         if ( $with_inserts ) {
             eval {
-                print_insert_statements ($dumper, $dbh, $table)
+                print_insert_statements ($dumper, $dbh, $table);
+                if ( $test ) {
+                    for ( qw(gz sql) ) {
+                        if ( -e "${table}.${_}" ) {
+                            unlink "${table}.${_}";
+                        }
+                    }
+                }
             };
             if ( $@ ) {
                 print STDERR "Table ${table} failed: $@\n";
+		$dumper->dump_create;
             }
         }
     }


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