Diff for scripts/perl/mysql/mysql-table-copy.pl between version 1.12 and 1.13
| version 1.12, 2005/05/10 10:00:16 |
version 1.13, 2005/05/10 10:06:14 |
|
|
| # Licensed under terms of GNU General Public License. |
# Licensed under terms of GNU General Public License. |
| # All rights reserved. |
# All rights reserved. |
| # |
# |
| # $Platon: scripts/perl/mysql/mysql-table-copy.pl,v 1.11 2005/05/10 09:57:17 rajo Exp $ |
# $Platon: scripts/perl/mysql/mysql-table-copy.pl,v 1.12 2005/05/10 10:00:16 rajo Exp $ |
| |
|
| # TODO: - reconnect on closed connection |
# TODO: - reconnect on closed connection |
| # - managment for tables with multiple KEY columns |
# - managment for tables with multiple KEY columns |
| Line 91 $dbh2->{AutoCommit} = 1; |
|
| Line 91 $dbh2->{AutoCommit} = 1; |
|
| # |
# |
| |
|
| if ($db_name1 =~ m/^DBI:Oracle:/) { |
if ($db_name1 =~ m/^DBI:Oracle:/) { |
| my $sth = $dbh2->prepare('ALTER SESSION SET NLS_DATE_FORMAT = \'YYYY-MM-DD HH24:MI:SS\'') |
my $sth = $dbh1->prepare('ALTER SESSION SET NLS_DATE_FORMAT = \'YYYY-MM-DD HH24:MI:SS\'') |
| or die "DBI::prepare(): $DBI::errstr"; |
or die "DBI::prepare(): $DBI::errstr"; |
| $sth->execute() or die "DBI::execute(): " . $sth->errstr; |
$sth->execute() or die "DBI::execute(): " . $sth->errstr; |
| $sth->finish(); |
$sth->finish(); |
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