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

controllo doppio x corra

Browse Source
This commit is contained in:
battilo
2017-09-22 23:07:16 +02:00
parent c4d6485fd8
commit c4b239d093
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
UnitCsvReceiverSmart.pl
View File

@@ -91,7 +91,8 @@ while ( my $line = $tail->GetLine() ) {
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' ) )
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;