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

jail ftp user asega + aseu

Browse Source
This commit is contained in:
battilo
2017-09-24 19:26:23 +02:00
parent c4b239d093
commit a4f8e80fb3
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
UnitCsvReceiverSmart.pl
View File

@@ -57,6 +57,10 @@ while ( my $line = $tail->GetLine() ) {
or warn getTimeStamp("log") . " >> $truser not in passwd file.\n";
my ( $filename, $path, $suffix ) = fileparse( $trfile, qr/\.[^.]*/ );
if ( $path eq "/" ) {
$path = "/home/" . $truser . "/";
$trfile = "/home/" . $truser . $trfile;
}
if ( ( ( uc $suffix ) eq ( uc $ext ) )
and ( $filename =~ m/^(\d\d_\d\d\d\d_|)(DT\d\d\d\d|LOC\d*)$/i ) )
@@ -66,7 +70,7 @@ while ( my $line = $tail->GetLine() ) {
if ( !-d "$path/log" ) {
make_path "$path/log",
{ mode => 0755, owner => $truser, group => $truser }
{ mode => 0755, owner => $truser, group => $gid }
or warn getTimeStamp("log")
. " >> Failed to create path: $path/log";
}
@@ -74,7 +78,7 @@ while ( my $line = $tail->GetLine() ) {
my $outpath = $path . $unit;
if ( !-d "$outpath/SQL" ) {
make_path "$outpath/SQL",
{ mode => 0755, owner => $truser, group => $truser }
{ mode => 0755, owner => $truser, group => $gid }
or warn getTimeStamp("log")
. " >> Failed to create path: $outpath/SQL";
}