Diff for scripts/perl/oracle/oracledump.pl between version 1.12 and 1.13
| version 1.12, 2004/02/15 18:58:20 |
version 1.13, 2005/04/30 13:52:17 |
|
|
| #!/usr/bin/perl |
#!/usr/bin/perl |
| |
|
| # $Platon: scripts/perl/oracle/oracledump.pl,v 1.11 2004/01/23 18:38:20 nepto Exp $ |
# $Platon: scripts/perl/oracle/oracledump.pl,v 1.12 2004/02/15 18:58:20 nepto Exp $ |
| |
|
| use strict; |
use strict; |
| |
|
| Line 197 $opt_database = shift @ARGV; # grab data |
|
| Line 197 $opt_database = shift @ARGV; # grab data |
|
| # Process command-line switches |
# Process command-line switches |
| #*********************************************************************** |
#*********************************************************************** |
| |
|
| if (! $rc || defined $opt_help) |
|
| { |
|
| print STDERR $help; |
|
| exit (defined $opt_help ? 0 : 1); |
|
| } |
|
| |
|
| if (defined $opt_version) |
if (defined $opt_version) |
| { |
{ |
| print STDERR "oracledump v$VERSION\n"; |
print STDERR "oracledump v$VERSION\n"; |
| exit 0; |
exit 0; |
| } |
} |
| |
|
| |
if ( !$rc || defined $opt_help || !defined $opt_database ) |
| ## After processing non-related switches, we *must* have a database defined |
|
| |
|
| if (! defined $opt_database) |
|
| { |
{ |
| print STDERR "ERROR: Must define database\n", $help; |
print STDERR $help; |
| exit 1; |
exit 1; |
| } |
} |
| |
|
| |
|
| ## Define $opt_user if it wasn't set |
## Define $opt_user if it wasn't set |
| |
|
| if (! defined $opt_user) |
if (! defined $opt_user) |
Platon Group <platon@platon.org> http://platon.org/
|
|
Login
Registration
Slovak
![[BACK]](http://cvsweb.platon.sk/icons/back.gif){kind=icon}
![[TXT]](http://cvsweb.platon.sk/icons/text.gif){kind=icon}
![[DIR]](http://cvsweb.platon.sk/icons/dir.gif){kind=icon}
Up to