Diff for scripts/perl/oracle/oracledump.pl between version 1.23 and 1.24
| version 1.23, 2008/08/21 08:25:11 |
version 1.24, 2008/08/23 14:18:52 |
|
|
| #!/usr/bin/perl |
#!/usr/bin/perl |
| |
|
| # $Platon: scripts/perl/oracle/oracledump.pl,v 1.22 2008-08-21 08:23:48 nepto Exp $ |
# $Platon: scripts/perl/oracle/oracledump.pl,v 1.23 2008-08-21 08:25:11 nepto Exp $ |
| |
|
| use strict; |
use strict; |
| |
|
| Line 270 $dbh = DBI->connect("dbi:Oracle:$opt_dat |
|
| Line 270 $dbh = DBI->connect("dbi:Oracle:$opt_dat |
|
| # Turn autocommit *off* and set transaction to *read only* |
# Turn autocommit *off* and set transaction to *read only* |
| #*********************************************************************** |
#*********************************************************************** |
| |
|
| $dbh->{AutoCommit} = 0; |
$dbh->{AutoCommit} = 0; |
| $dbh->{LongReadLen}=500000; |
$dbh->{LongReadLen} = 999999; |
| |
|
| $dbh->do("set transaction read only") |
$dbh->do("set transaction read only") |
| || die "Cannot set transaction to read only: $DBI::errstr"; |
|| die "Cannot set transaction to read only: $DBI::errstr"; |
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