|
|
@ -125,7 +125,7 @@ foreach my $u (@delete){ |
|
|
|
if ( $archive =~ m/^yes|enabled|1|on$/ ){ |
|
|
|
if ( $archive =~ m/^yes|enabled|1|on$/ ){ |
|
|
|
# Suspend email delivery, prevent tar ending with exit code 1 |
|
|
|
# Suspend email delivery, prevent tar ending with exit code 1 |
|
|
|
# because Maildir changed during archive |
|
|
|
# because Maildir changed during archive |
|
|
|
system('chmod', '+t', getpwnam($u)->dir) |
|
|
|
system('chmod', '+t', getpwnam($u)->dir); |
|
|
|
my $tar = $archive_path . '/' . $u . '-' . $now->ymd . '.tar.' . $archive_ext; |
|
|
|
my $tar = $archive_path . '/' . $u . '-' . $now->ymd . '.tar.' . $archive_ext; |
|
|
|
my $res = system( |
|
|
|
my $res = system( |
|
|
|
'tar', |
|
|
|
'tar', |
|
|
|