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

exit fi no Ain Din Node defined

Browse Source
This commit is contained in:
battilo
2018-11-24 00:22:30 +01:00
parent b08b43b04e
commit 6c1c19e52f
1 changed files with 3 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
LoadCSVData.pl
View File

@@ -246,7 +246,9 @@ sub getNodesType {
$sth->execute();
print getTimeStamp("log"). " - pid $$ >> $unit - $tool: " . $sth->rows . " rows selected to get node type/Ain/Din/channels.\n";
if ( $sth->rows eq 0 ) {
die getTimeStamp("log") . " - pid $$ >> No node channels selected.\n";
print getTimeStamp("log"). " - pid $$ >> Node/Channels/Ain/Din not defined.\n";
print getTimeStamp("log"). " - pid $$ >> Execution ended.\n";
exit;
}else {
my $row = 0;
while ( my $results = $sth->fetchrow_hashref ) {
@@ -470,12 +472,6 @@ while ( my $line = <FILE> ) {
my ( $Vbat, $Tmod, $Ain1, $Ain2, $Din1, $Din2 ) =
split( /;/, $NodeData );
if ( scalar @din ) {
print getTimeStamp("log"). " - pid $$ >> Ain/Din not defined.\n";
print getTimeStamp("log"). " - pid $$ >> Execution ended.\n";
exit;
}
my $idx = 0;
$CSVData[$idx++] = $Vbat . ";" . $Tmod;