From c4b239d0930c4abec4c762ba7c6aaa3e95d8cf3d Mon Sep 17 00:00:00 2001
From: battilo <alessandro.battilani@gmail.com>
Date: Fri, 22 Sep 2017 23:07:16 +0200
Subject: [PATCH] controllo doppio x corra

---
 UnitCsvReceiverSmart.pl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/UnitCsvReceiverSmart.pl b/UnitCsvReceiverSmart.pl
index e495515..e5f3b66 100644
--- a/UnitCsvReceiverSmart.pl
+++ b/UnitCsvReceiverSmart.pl
@@ -90,8 +90,9 @@ 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
-                    and ( $unit ne 'ID9999' ) )
+                if (    $filename =~ m/^(\d\d_\d\d\d\d_|)(DT\d\d\d\d|LOC\d.*)$/i
+                    and ( $unit ne 'ID9999' )
+                    and ( $truser ne 'corra' ) )
                 {
                     print getTimeStamp("log")
                       . " >> Sender user $truser: load data into DB.\n";
@@ -106,7 +107,7 @@ while ( my $line = $tail->GetLine() ) {
                         );
                         exit(0);
                     }
-                    if ( $truser ne 'asega' and $truser ne 'corra' ) {
+                    if ( ( $truser ne 'asega' ) and ( $truser ne 'corra' ) ) {
                         print getTimeStamp("log")
                           . " >> Sender user $truser: duplicate as asega user -> load data into DB.\n";
                         my $realtruser = $truser;