From f693044c47bc16de6c7e370f971a69a79c764164 Mon Sep 17 00:00:00 2001
From: Alessandro Battilani <alessandro.battilani@gmail.com>
Date: Sun, 1 Nov 2020 17:34:29 +0100
Subject: [PATCH] gestione file D2W

---
 LoadCSVData.pl | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/LoadCSVData.pl b/LoadCSVData.pl
index e851107..16af98d 100644
--- a/LoadCSVData.pl
+++ b/LoadCSVData.pl
@@ -504,6 +504,13 @@ elsif ( $filecsvname =~ m/^G201_ID\d\d\d\d_DT\d\d\d\d_\d*_\d*$/i ) {
     $fileTime = $strings[6] . ":" . $strings[7] . ":" . $strings[8];
     $tooltype = 'MUX';
 }
+elsif ( $filecsvname =~ m/^D2W_ID\d\d\d\d_DT\d\d\d\d$/i ) {
+    my @strings = $filecsvname =~ /(.{1,3})_(.{1,6})_(.{1,6}).*/;
+    $unittype = $strings[0];
+    $unit     = $strings[1];
+    $tool     = $strings[2];
+    $tooltype = 'D2W';
+}
 
 while ( my $line = <FILE> ) {
     my ( $first, $NodeData ) = split( /;/, $line, 2 );
@@ -544,7 +551,7 @@ while ( my $line = <FILE> ) {
                 $G201_fcheck = 1;
             }
 
-            if ( $tooltype eq "MUX" ) {
+            if ( $tooltype eq "MUX" or $tooltype eq "MUX" ) {
 
                 #$NodeData =~ s/Dis\./N\/A/g;
                 @NewData = grep /\S/, split( /\||;/, $NodeData );