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

aggiunto la gestione (salvataggio) dei GD

Browse Source
This commit is contained in:
battilo
2017-09-25 21:21:43 +02:00
parent 17dfcd4cb7
commit 1b6f855786
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
UnitCsvReceiverSmart.pl
View File

@@ -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' ) )
{