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

copy table excl ELAB RAW

Browse Source
This commit is contained in:
battilo
2017-09-18 23:07:59 +02:00
parent 6e03b45a12
commit 9c490b7cb8
1 changed files with 51 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

59
SetupNewComp.pl
View File

@@ -199,6 +199,45 @@ sub checkCompanyDBTables() {
$sth_db->execute() $sth_db->execute()
or die getTimeStamp("log") . " - pid $$ >> $DBI::errstr"; or die getTimeStamp("log") . " - pid $$ >> $DBI::errstr";
$sth_db->finish; $sth_db->finish;
my $sth_tb = $dbh->prepare( "SHOW TABLES FROM " . $db_adm . ";" )
or die getTimeStamp("log") . " - pid $$ >> $DBI::errstr";
$sth_tb->execute()
or die getTimeStamp("log") . " - pid $$ >> $DBI::errstr";
my $tables_list = $sth_tb->fetchall_arrayref( {} );
foreach my $table ( @{$tables_list} ) {
my $sth_deft =
$dbh->prepare( "CREATE TSBLE IF NOT EXISTS "
. $company_db_name . "."
. $table
. " LIKE "
. $db_adm . "."
. $table
. ";" )
or die getTimeStamp("log") . " - pid $$ >> $DBI::errstr";
$sth_deft->execute()
or die getTimeStamp("log") . " - pid $$ >> $DBI::errstr";
$sth_deft->finish;
if ( $table ne 'ELABDATADISP' and $table ne 'RAWDATACOR' ) {
my $sth_cpyt =
$dbh->prepare( "INSERT "
. $company_db_name . "."
. $table
. " SELECT * FROM "
. $db_adm . "."
. $table
. ";" )
or die getTimeStamp("log") . " - pid $$ >> $DBI::errstr";
$sth_cpyt->execute()
or die getTimeStamp("log") . " - pid $$ >> $DBI::errstr";
$sth_cpyt->finish;
}
}
$sth_tb->finish;
} }
sub setCompanyOSSet { sub setCompanyOSSet {
@@ -223,12 +262,17 @@ sub setCompanyOSSet {
$sth->execute() or die getTimeStamp("log") . " - pid $$ >> $DBI::errstr"; $sth->execute() or die getTimeStamp("log") . " - pid $$ >> $DBI::errstr";
$sth->finish; $sth->finish;
user( if (
$company_os_user, encpass($company_os_pwd), !user(
maxuid() + 1, $company_os_grp, $company_os_user, encpass($company_os_pwd),
$company_name . " user", "/home/" . $company_os_user, maxuid() + 1, $company_os_grp,
"/bin/bash" $company_name . " user", "/home/" . $company_os_user,
) or die getTimeStamp("log") . " - pid $$ >> " . error() . ". \n"; "/bin/bash"
)
)
{
die getTimeStamp("log") . " - pid $$ >> Error in user definition\n";
}
if ( !-d "/home/" . $company_os_user ) { if ( !-d "/home/" . $company_os_user ) {
make_path "/home/" . $company_os_user, make_path "/home/" . $company_os_user,
@@ -255,8 +299,7 @@ if ( !checkCompanyDBGrant() ) {
print getTimeStamp("log") . " - pid $$ >> Set Company user DB grant.\n"; print getTimeStamp("log") . " - pid $$ >> Set Company user DB grant.\n";
setCompanyDBGrant(); setCompanyDBGrant();
print getTimeStamp("log") . " - pid $$ >> Set Company user DB tables.\n"; print getTimeStamp("log") . " - pid $$ >> Set Company user DB tables.\n";
setCompanyDBTables();
#setCompanyDBTables();
} }
if ( !defined $company_os_user or !exists_user($company_os_user) ) { if ( !defined $company_os_user or !exists_user($company_os_user) ) {