parent
ce4d4efaee
commit
3f8d0c636a
|
@ -123,6 +123,9 @@ foreach my $u (@delete){
|
|||
}
|
||||
my $archive = $user->prop('ExpireArchiveBeforeDelete') || 'yes';
|
||||
if ( $archive =~ m/^yes|enabled|1|on$/ ){
|
||||
# Suspend email delivery, prevent tar ending with exit code 1
|
||||
# because Maildir changed during archive
|
||||
system('chmod', '+t', getpwnam($u)->dir)
|
||||
my $tar = $archive_path . '/' . $u . '-' . $now->ymd . '.tar.' . $archive_ext;
|
||||
my $res = system(
|
||||
'tar',
|
||||
|
|
Loading…
Reference in New Issue