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

dovrebbe funzionare senza ase_mums

Browse Source
This commit is contained in:
battilo
2018-05-12 17:21:10 +02:00
parent b840765016
commit 2cdd1423d3
1 changed files with 3 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
LoadCSVData.pl
View File

@@ -16,8 +16,8 @@ my $password = 'laravel';
my $db_lar = 'ase_lar'; my $db_lar = 'ase_lar';
my $db_sp = 'ase_lar'; my $db_sp = 'ase_lar';
my $server = 'localhost'; my $server = 'localhost';
my $db_name = "ase_mums"; my $db_name = "ase_lar";
my $table = "RAWDATA"; my $table = "RAWDATACOR";
my ( @CSVData, @sql ); my ( @CSVData, @sql );
my $outcount = 0; my $outcount = 0;
my $outfilenum = 0; my $outfilenum = 0;
@@ -83,14 +83,6 @@ sub writeOutSql {
@sql = (); @sql = ();
print SQLOUT "/* unlock table */\nUNLOCK TABLES;\n"; print SQLOUT "/* unlock table */\nUNLOCK TABLES;\n";
if ( $table eq 'RAWDATA' ) {
print SQLOUT "/* call stored procedure to copy in "
. $db_sp
. "*/\ncall "
. $db_sp
. ".CopyAndFill('$tn');\n";
}
close SQLOUT close SQLOUT
or die( getTimeStamp("log") or die( getTimeStamp("log")
. " - pid $$ >> Error in closing file " . " - pid $$ >> Error in closing file "
@@ -360,10 +352,9 @@ if ( $db_name ne 'asega' ) {
$db_sp = $db_name; $db_sp = $db_name;
getUdbPwd(); getUdbPwd();
$db_lar = $db_name; $db_lar = $db_name;
$table = "RAWDATACOR";
} }
else { else {
$db_name = 'ase_mums'; $db_name = 'ase_lar';
} }
my ( $fileDate, $fileTime ) = split( /\s/, <FILE> ); my ( $fileDate, $fileTime ) = split( /\s/, <FILE> );