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

errore ctrl send ftp e query sxclude anchor e none

Browse Source
This commit is contained in:
Alessandro Battilani
2021-11-28 15:39:38 +01:00
parent a5292ae9cb
commit ff3da9be7f
2 changed files with 7 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
LoadCSVData.pl
View File

@@ -207,7 +207,7 @@ sub getNodesType {
inner join tools as t on t.id = n.tool_id inner join tools as t on t.id = n.tool_id
inner join units as u on u.id = t.unit_id inner join units as u on u.id = t.unit_id
inner join nodetypes as y on n.nodetype_id = y.id inner join nodetypes as y on n.nodetype_id = y.id
where t.name = "' where y.type not in (\'Anchor Link\', \'None\') and t.name = "'
. $tool . $tool
. '" and u.name = "' . '" and u.name = "'
. $unit . $unit
@@ -522,10 +522,9 @@ while ( my $line = <FILE> ) {
$CSVData[ $idx++ ] = $CSVData[ $idx++ ] =
join( ';', splice( @NewData, 0, 2 ) ); join( ';', splice( @NewData, 0, 2 ) );
foreach my $ch (@channels) { foreach my $ch (@channels) {
if ( $ch > 0 ) { $CSVData[ $idx++ ] =
$CSVData[ $idx++ ] = join( ';', splice( @NewData, 0, $ch ) );
join( ';', splice( @NewData, 0, $ch ) );
}
} }
} }

7
SendFtpElabData.pl
View File

@@ -72,7 +72,7 @@ sub trxelab {
my $fileelab; my $fileelab;
if ( !defined($ftp_filename) or $ftp_filename eq "" ) { if ( !defined $ftp_filename or $ftp_filename eq "" ) {
$fileelab = $fileelab =
'/var/lib/mysql-files/' '/var/lib/mysql-files/'
. $tool . '_' . $tool . '_'
@@ -123,8 +123,7 @@ sub trxelab {
print getTimeStamp("log") . " - pid $$ >> $unit - $tool ftp parm:\n"; print getTimeStamp("log") . " - pid $$ >> $unit - $tool ftp parm:\n";
while ( my ( $key, $value ) = each(%ftp_parms) ) { while ( my ( $key, $value ) = each(%ftp_parms) ) {
print getTimeStamp("log") print getTimeStamp("log") . " - pid $$ >> - $key = $ftp_parms{$key}\n";
. " - pid $$ >> - $key = $ftp_parms{$key}\n";
} }
if ( !defined $duedate if ( !defined $duedate
@@ -195,4 +194,4 @@ if ( $tool eq 'DT0076' ) {
trxelab(); trxelab();
print getTimeStamp("log") . " - pid $$ >> Execution ended.\n"; print getTimeStamp("log") . " - pid $$ >> Execution ended.\n";
exit; exit;