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

Diff for scripts/perl/oracle/oraqry2csv.pl between version 1.1 and 1.2

version 1.1, 2005/05/01 20:51:49 version 1.2, 2007/03/17 06:40:11
Line 12 
Line 12 
 # 2005-04-30 - created  # 2005-04-30 - created
 #  #
   
 # $Platon$  # $Platon: scripts/perl/oracle/oraqry2csv.pl,v 1.1 2005-05-01 20:51:49 nepto Exp $
   
 use strict;  use strict;
   
Line 119  $opt_database = shift @ARGV;    # grab d
Line 119  $opt_database = shift @ARGV;    # grab d
   
 @opt_queries = splice( @ARGV, 0 );    # grab optional list of tables  @opt_queries = 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.1  
changed lines
  Added in v.1.2
Platon Group <platon@platon.org> http://platon.org/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS 		Go to Top