alex/ase_perl
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

copy db

Browse Source
This commit is contained in:
battilo
2017-09-19 00:07:33 +02:00
parent b4769aac87
commit 700afdbbb4
1 changed files with 19 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
SetupNewComp.pl
View File

@@ -200,7 +200,9 @@ sub setCompanyDBTables() {
or die getTimeStamp("log") . " - pid $$ >> $DBI::errstr";
$sth_db->finish;
my $sth_tb = $dbh->prepare( "SHOW TABLES FROM " . $db_adm . ";" )
my $sth_tb =
$dbh->prepare(
"SHOW FULL TABLES IN " . $db_adm . " WHERE Table_Type = 'BASE TABLE';" )
or die getTimeStamp("log") . " - pid $$ >> $DBI::errstr";
$sth_tb->execute()
or die getTimeStamp("log") . " - pid $$ >> $DBI::errstr";
@@ -216,9 +218,15 @@ sub setCompanyDBTables() {
. $db_adm . "."
. $table->[0]
. ";" )
or die getTimeStamp("log") . " - pid $$ >> $DBI::errstr";
or die getTimeStamp("log")
. " - pid $$ "
. $table->[0]
. " >> $DBI::errstr";
$sth_deft->execute()
or die getTimeStamp("log") . " - pid $$ >> $DBI::errstr";
or die getTimeStamp("log")
. " - pid $$ "
. $table->[0]
. " >> $DBI::errstr";
$sth_deft->finish;
if ( $table->[0] ne 'ELABDATADISP' and $table->[0] ne 'RAWDATACOR' ) {
my $sth_cpyt =
@@ -229,9 +237,15 @@ sub setCompanyDBTables() {
. $db_adm . "."
. $table->[0]
. ";" )
or die getTimeStamp("log") . " - pid $$ >> $DBI::errstr";
or die getTimeStamp("log")
. " - pid $$ "
. $table->[0]
. " >> $DBI::errstr";
$sth_cpyt->execute()
or die getTimeStamp("log") . " - pid $$ >> $DBI::errstr";
or die getTimeStamp("log")
. " - pid $$ "
. $table->[0]
. " >> $DBI::errstr";
$sth_cpyt->finish;
}