From 1b6f8557866d88364ac095969755fc7353b9c185 Mon Sep 17 00:00:00 2001
From: battilo <alessandro.battilani@gmail.com>
Date: Mon, 25 Sep 2017 21:21:43 +0200
Subject: [PATCH] aggiunto la gestione (salvataggio) dei GD

---
 UnitCsvReceiverSmart.pl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/UnitCsvReceiverSmart.pl b/UnitCsvReceiverSmart.pl
index 3984458..a091cb9 100644
--- a/UnitCsvReceiverSmart.pl
+++ b/UnitCsvReceiverSmart.pl
@@ -63,7 +63,8 @@ while ( my $line = $tail->GetLine() ) {
         }
 
         if (    ( ( uc $suffix ) eq ( uc $ext ) )
-            and ( $filename =~ m/^(\d\d_\d\d\d\d_|)(DT\d\d\d\d|LOC\d*)$/i ) )
+            and
+            ( $filename =~ m/^(\d\d_\d\d\d\d_|)(DT\d\d\d\d|LOC\d*|GD\d*)$/i ) )
         {
             my $unit = getUnitName($trfile);
             print getTimeStamp("log") . " >> Unit $unit - Filename $trfile\n";
@@ -94,7 +95,8 @@ while ( my $line = $tail->GetLine() ) {
                 chmod 0664, $dest;
                 my @fname = ($dest);
                 chown $uid, $gid, @fname;
-                if (    $filename =~ m/^(\d\d_\d\d\d\d_|)(DT\d\d\d\d|LOC\d.*)$/i
+                if ( $filename =~
+                        m/^(\d\d_\d\d\d\d_|)(DT\d\d\d\d|LOC\d.*|GD\d*)$/i
                     and ( $unit ne 'ID9999' )
                     and ( $truser ne 'corra' ) )
                 {