inserito creazione dir config

2020-11-13 20:29:35 +01:00
parent 20fd892060
commit 5988453a5a
2 changed files with 35 additions and 19 deletions
--- a/UnitCsvReceiverSmart.pl
+++ b/UnitCsvReceiverSmart.pl
@@ -105,6 +105,13 @@ while ( my $line = $tail->GetLine() ) {
                  . " >> Failed to create path: $outpath/SQL";
            }

+            if ( !-d "$outpath/config" ) {
+                make_path "$outpath/config",
+                  { mode => 0755, owner => $truser, group => $gid }
+                  or warn getTimeStamp("log")
+                  . " >> Failed to create path: $outpath/config";
+            }
+
            my $timestamp = getTimeStamp();
            my $dest = $outpath . "/" . $filename . "_" . $timestamp . $suffix;
            if ( !move $trfile, $dest ) {