Grant group write perm

dirperm
Daniel Berteaud 13 years ago
parent 7752f23771
commit 4be615ba2c
  1. 6
      root/etc/e-smith/events/actions/dovecot-acl
  2. 2
      smeserver-dovecot.spec

@ -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);
}

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

Loading…
Cancel
Save