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.13 and 1.14

version 1.13, 2005/04/30 13:52:17 version 1.14, 2007/03/17 06:47:38
Line 1 
Line 1 
 #!/usr/bin/perl  #!/usr/bin/perl
   
 # $Platon: scripts/perl/oracle/oracledump.pl,v 1.12 2004/02/15 18:58:20 nepto Exp $  # $Platon: scripts/perl/oracle/oracledump.pl,v 1.13 2005-04-30 13:52:17 nepto Exp $
   
 use strict;  use strict;
   
Line 192  $opt_database = shift @ARGV;    # grab data
Line 192  $opt_database = shift @ARGV;    # grab data
   
 @opt_tables = splice(@ARGV, 0); # grab optional list of tables  @opt_tables = splice(@ARGV, 0); # grab optional list of tables
   
   # checking for user/pass@database
   if ($opt_database =~ /^(.+)@(.+)$/) {
           $opt_database = $2;
           $opt_user     = $1;
           if ($opt_user =~ /^(.+)\/(.*)$/) {
                   $opt_password = $2;
                   $opt_user     = $1;
           }
   
   }
   
 #***********************************************************************  #***********************************************************************
 # Process command-line switches  # Process command-line switches
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
Platon Group <platon@platon.org> http://platon.org/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS 		Go to Top