From a7261e0b9b4036b1713e91e088268a0a9c99036d Mon Sep 17 00:00:00 2001
From: battilo <alessandro.battilani@gmail.com>
Date: Mon, 14 May 2018 22:04:57 +0200
Subject: [PATCH] stampa il numero di righe della query per i channel

---
 LoadCSVData.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/LoadCSVData.pl b/LoadCSVData.pl
index caecbba..21fd061 100644
--- a/LoadCSVData.pl
+++ b/LoadCSVData.pl
@@ -256,6 +256,8 @@ sub getNodesType {
     ) or die getTimeStamp("log") . " - pid $$ >> $DBI::errstr";
 
     $sth->execute();
+    print getTimeStamp("log")
+      . " - pid $$ >> $tool: " . $sth->rows . " rows selected to get node type/din/channels.\n";
     if ( $sth->rows < 0 ) {
         die getTimeStamp("log") . " - pid $$ >> No node channels selected.\n";
     }
@@ -363,7 +365,7 @@ if ( $filecsvname =~ m/^(\d\d_\d\d\d\d_|)(DT\d\d\d\d|LOC\d.*|GD\d*)_\d*$/i ) {
     ($fileDate, $fileTime) = split( /\s/, <FILE> );
     ($unittype, $unit )    = split( /\s/, uc <FILE> );
     $unit =~ s/;+$//;
-} elsif ( $filecsvname =~ m/^(\d\d\d\d\d\d\d\d\d\d\d\d\d\d_)(G201_ID\d\d\d\d_DT\d\d\d\d)_\d*$/i ) {
+} elsif ( $filecsvname =~ m/^(\d\d_\d\d\d\d_|)(\d\d\d\d\d\d\d\d\d\d\d\d\d\d_)(G201_ID\d\d\d\d_DT\d\d\d\d)_\d*$/i ) {
     my @strings = $filecsvname =~ /(.{1,4})(.{1,2})(.{1,2})(.{1,2})(.{1,2})(.{1,2})_(.{1,4})_(.{1,6})_(.{1,6}).*/;
     $fileDate = $strings[0] . "/" . $strings[1] . "/" . $strings[2];;
     $fileTime = $strings[3] . ":" . $strings[4] . ":" . $strings[5];