Platon Technologies
not logged in Login Registration
EnglishSlovak
open source software development celebrating 10 years of open source development! Wednesday, October 14, 2026
[BACK] [TXT][DIR] Up to [Platon] / scripts / perl / oracle

Diff for scripts/perl/oracle/oracledump.pl between version 1.18 and 1.19

version 1.18, 2007/03/27 16:57:32 version 1.19, 2007/03/27 18:10:07
Line 1 
Line 1 
 #!/usr/bin/perl  #!/usr/bin/perl
   
 # $Platon: scripts/perl/oracle/oracledump.pl,v 1.17 2007-03-27 16:26:41 nepto Exp $  # $Platon: scripts/perl/oracle/oracledump.pl,v 1.18 2007-03-27 16:57:32 nepto Exp $
   
 use strict;  use strict;
   
Line 388  foreach $table (@opt_tables)
Line 388  foreach $table (@opt_tables)
         my $table_out;          my $table_out;
   
         $table_out = $table;          $table_out = $table;
         $table_out = lc $table_out if defined $opt_mysql_compliant_dump;  
         $table     = uc $table;          $table     = uc $table;
           if (defined $opt_mysql_compliant_dump) {
                   $table_out = lc $table_out;
                   $table_out = "`$table_out`";
           }
   
   
     ## Print table structure      ## Print table structure
Line 402  foreach $table (@opt_tables)
Line 405  foreach $table (@opt_tables)
         print <<MARK;          print <<MARK;
   
 $CM  $CM
 $CM Table structure for table '$table_out'  $CM Table structure for table: $table_out
 $CM  $CM
 MARK  MARK
         ## Print drop table if requested          ## Print drop table if requested
Line 535  MARK
Line 538  MARK
         print <<MARK;          print <<MARK;
   
 $CM  $CM
 $CM Dumping data for table '$table_out'  $CM Dumping data for table: $table_out
 @{[ (scalar @opt_where > 0)  @{[ (scalar @opt_where > 0)
     ? "$CM WHERE:  " . join(' AND ', @opt_where) . "\n$CM\n"      ? "$CM WHERE:  " . join(' AND ', @opt_where) . "\n$CM\n"
     : "$CM\n" ]}      : "$CM\n" ]}
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
Platon Group <platon@platon.org> http://platon.org/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS 		Go to Top