dovrebbe funzionare senza ase_mums
This commit is contained in:
@@ -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/, <FILE> );
|
||||
|
||||
Reference in New Issue
Block a user