Grant group write perm

This commit is contained in:
Daniel Berteaud 2012-03-14 09:25:53 +01:00
parent 7752f23771
commit 4be615ba2c
2 changed files with 4 additions and 4 deletions

View File

@ -56,6 +56,7 @@ sub set_acl {
my $user = shift;
die "Missing username\n" unless ($user);
die "Couldn't find $user"."'s home dir\n" unless (-e "/home/e-smith/files/users/$user");
find(\&dirperm, "/home/e-smith/files/users/$user/Maildir");
die "Error applying permissions to $user 's Maildir\n" unless (
# sharedmailbox group needs read / write access on Maildir
system('/usr/bin/setfacl',
@ -71,7 +72,6 @@ sub set_acl {
'g:sharedmailbox:x',
"/home/e-smith/files/users/$user") == 0
);
find(\&sgid, "/home/e-smith/files/users/$user/Maildir");
}
# The kernel will handle group perms when a user
@ -79,9 +79,9 @@ sub set_acl {
# This will prevent dovecot errors, see
# http://wiki2.dovecot.org/SharedMailboxes/Permissions and
# http://wiki2.dovecot.org/Errors/ChgrpNoPerm
sub sgid {
sub dirperm {
system('/bin/chmod',
'g+s',
'g+ws',
"$_") if (-d);
}

View File

@ -1,5 +1,5 @@
%define version 0.1
%define release 0.beta26
%define release 0.beta27
%define name smeserver-dovecot