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

fix x multidb

Browse Source
This commit is contained in:
battilo
2017-09-17 23:43:13 +02:00
parent c3d3b3a73c
commit 2543a66366
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
LoadCSVData.pl
View File

@@ -258,7 +258,7 @@ sub getUdbPwd {
or die getTimeStamp("log") or die getTimeStamp("log")
. " - pid $$ >> Could not connect to database: $DBI::errstr"; . " - pid $$ >> Could not connect to database: $DBI::errstr";
my $sth = $dbh->prepare( my $sth = $dbh->prepare(
"SELECT db_pwd FROM ase_lar.companies where db_name = '" "SELECT db_user, db_pwd FROM ase_lar.companies where db_name = '"
. $db_name . $db_name
. "';" ) . "';" )
or die getTimeStamp("log") . " - pid $$ >> $DBI::errstr"; or die getTimeStamp("log") . " - pid $$ >> $DBI::errstr";
@@ -268,11 +268,10 @@ sub getUdbPwd {
die getTimeStamp("log") . " - pid $$ >> No password selected.\n"; die getTimeStamp("log") . " - pid $$ >> No password selected.\n";
} }
else { else {
my $mfunc; my $results = $sth->fetchrow_hashref;
while ( my $results = $sth->fetchrow_hashref ) { $password = $results->{'db_pwd'};
$password = $results->{'db_pwd'}; $username = $results->{'db_user'};
$username = $results->{'db_user'};
}
} }
$sth->finish; $sth->finish;
@@ -328,9 +327,10 @@ open FILE, $filename
or die( "Error: opening input file " . $filename . "\n" ); or die( "Error: opening input file " . $filename . "\n" );
if ( $db_name ne 'asega' ) { if ( $db_name ne 'asega' ) {
$db_name =~ s/dbn/dbu/; $db_name =~ s/aseu/dbn/;
$db_sp = $db_name; $db_sp = $db_name;
getUdbPwd(); getUdbPwd();
$db_lar = $db_name;
} }
else { else {
$db_name = 'ase_mums'; $db_name = 'ase_mums';