Diff for scripts/perl/oracle/oracledump.pl between version 1.24 and 1.25
| version 1.24, 2008/08/23 14:18:52 |
version 1.25, 2008/08/23 14:21:25 |
|
|
| #!/usr/bin/perl |
#!/usr/bin/perl |
| |
|
| # $Platon: scripts/perl/oracle/oracledump.pl,v 1.23 2008-08-21 08:25:11 nepto Exp $ |
# $Platon: scripts/perl/oracle/oracledump.pl,v 1.24 2008-08-23 14:18:52 nepto Exp $ |
| |
|
| use strict; |
use strict; |
| |
|
| Line 20 sub escape_data($$); # escapes data for |
|
| Line 20 sub escape_data($$); # escapes data for |
|
| # Package 'main' variables set by the mod_perl CGI environment |
# Package 'main' variables set by the mod_perl CGI environment |
| #*********************************************************************** |
#*********************************************************************** |
| |
|
| |
$ENV{NLS_LANG} = 'SLOVAK_SLOVAKIA.EE8ISO8859P2'; |
| $ENV{ORACLE_HOME} = '/usr/oracle/app/oracle/product/8.0.5' |
$ENV{ORACLE_HOME} = '/usr/oracle/app/oracle/product/8.0.5' |
| if (! exists $ENV{ORACLE_HOME}); |
if (! exists $ENV{ORACLE_HOME}); |
| |
|
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