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

corretto la trasformazione del path dove creare sql x caricamento doppio

Browse Source
This commit is contained in:
battilo
2017-09-18 21:02:26 +02:00
parent c99e5a6e83
commit c0adcc5248
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
UnitCsvReceiverSmart.pl
View File

@@ -109,7 +109,9 @@ while ( my $line = $tail->GetLine() ) {
if ( $truser ne 'asega' ) { if ( $truser ne 'asega' ) {
print getTimeStamp("log") print getTimeStamp("log")
. " >> Sender user $truser: duplicate as asega user -> load data into DB.\n"; . " >> 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) my ( $login, $pass, $uid, $gid ) = getpwnam($truser)
or warn getTimeStamp("log") or warn getTimeStamp("log")
. " >> $truser not in passwd file.\n"; . " >> $truser not in passwd file.\n";