corretto la trasformazione del path dove creare sql x caricamento doppio

2017-09-18 21:02:26 +02:00
parent c99e5a6e83
commit c0adcc5248
1 changed files with 3 additions and 1 deletions
--- a/UnitCsvReceiverSmart.pl
+++ b/UnitCsvReceiverSmart.pl
@@ -109,7 +109,9 @@ while ( my $line = $tail->GetLine() ) {
                    if ( $truser ne 'asega' ) {
                        print getTimeStamp("log")
                          . " >> Sender user $truser: duplicate as asega user -> load data into DB.\n";
-                        $truser = 'asega';
+                        my $realtruser = $truser;
+                        $truser = "asega";
+                        $outpath =~ s/$realtruser/$truser/;
                        my ( $login, $pass, $uid, $gid ) = getpwnam($truser)
                          or warn getTimeStamp("log")
                          . " >> $truser not in passwd file.\n";