From 2cdd1423d379427f3a86dd6cd232582ae8346431 Mon Sep 17 00:00:00 2001 From: battilo Date: Sat, 12 May 2018 17:21:10 +0200 Subject: [PATCH] dovrebbe funzionare senza ase_mums --- LoadCSVData.pl | 15 +++------------ 1 file changed, 3 insertions(+), 12 deletions(-) diff --git a/LoadCSVData.pl b/LoadCSVData.pl index 4f488b4..3210ab0 100644 --- a/LoadCSVData.pl +++ b/LoadCSVData.pl @@ -16,8 +16,8 @@ my $password = 'laravel'; my $db_lar = 'ase_lar'; my $db_sp = 'ase_lar'; my $server = 'localhost'; -my $db_name = "ase_mums"; -my $table = "RAWDATA"; +my $db_name = "ase_lar"; +my $table = "RAWDATACOR"; my ( @CSVData, @sql ); my $outcount = 0; my $outfilenum = 0; @@ -83,14 +83,6 @@ sub writeOutSql { @sql = (); 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 or die( getTimeStamp("log") . " - pid $$ >> Error in closing file " @@ -360,10 +352,9 @@ if ( $db_name ne 'asega' ) { $db_sp = $db_name; getUdbPwd(); $db_lar = $db_name; - $table = "RAWDATACOR"; } else { - $db_name = 'ase_mums'; + $db_name = 'ase_lar'; } my ( $fileDate, $fileTime ) = split( /\s/, );