smeserver-shared-folders/contribs9/smeserver-shared-folders-0.1-optimize_permissions.patch

diff -Nur -x '*.orig' -x '*.rej' smeserver-shared-folders-0.1/root/etc/e-smith/events/actions/share-modify mezzanine_patched_smeserver-shared-folders-0.1/root/etc/e-smith/events/actions/share-modify
--- smeserver-shared-folders-0.1/root/etc/e-smith/events/actions/share-modify   2009-04-08 11:55:18.000000000 +0200
+++ mezzanine_patched_smeserver-shared-folders-0.1/root/etc/e-smith/events/actions/share-modify 2009-05-17 20:11:46.000000000 +0200
@@ -76,6 +76,8 @@
 #--------------------------------------------------
 
 my %properties = $share->props;
+my @write = split(/[;,]/,($properties {'WriteGroups'} || 'admin'));
+my @read = split(/[;,]/,($properties {'ReadGroups'} || 'admin'));
 $::group = 'admin';
 
 # Make sensible defaults
@@ -96,10 +98,10 @@
        if (-d)
        {
            chmod $::dirperm, $_;
-           foreach my $group (split(/[;,]/,($properties {'WriteGroups'} || 'admin'))){
+           foreach my $group (@write){
                $acl .= 'g:'.$group.':rwx,';
            }
-           foreach my $group (split(/[;,]/,($properties {'ReadGroups'} || 'admin'))){
+           foreach my $group (@read){
                 $acl .= 'g:'.$group.':rx,';
             }
            system($setfacl,
@@ -110,10 +112,10 @@
        elsif (-f)
        {
            chmod $::fileperm, $_;
-          foreach my $group (split(/[;,]/,($properties {'WriteGroups'} || 'admin'))){
+          foreach my $group (@write){
                $acl .= 'g:'.$group.':rw,';
            }
-           foreach my $group (split(/[;,]/,($properties {'ReadGroups'} || 'admin'))){
+           foreach my $group (@read){
                $acl .= 'g:'.$group.':r,';
            }
           system($setfacl,
1	diff -Nur -x '.orig' -x '.rej' smeserver-shared-folders-0.1/root/etc/e-smith/events/actions/share-modify mezzanine_patched_smeserver-shared-folders-0.1/root/etc/e-smith/events/actions/share-modify
2	--- smeserver-shared-folders-0.1/root/etc/e-smith/events/actions/share-modify 2009-04-08 11:55:18.000000000 +0200
3	+++ mezzanine_patched_smeserver-shared-folders-0.1/root/etc/e-smith/events/actions/share-modify 2009-05-17 20:11:46.000000000 +0200
4	@@ -76,6 +76,8 @@
5	#--------------------------------------------------
6
7	my %properties = $share->props;
8	+my @write = split(/[;,]/,($properties {'WriteGroups'} \|\| 'admin'));
9	+my @read = split(/[;,]/,($properties {'ReadGroups'} \|\| 'admin'));
10	$::group = 'admin';
11
12	# Make sensible defaults
13	@@ -96,10 +98,10 @@
14	if (-d)
15	{
16	chmod $::dirperm, $_;
17	- foreach my $group (split(/[;,]/,($properties {'WriteGroups'} \|\| 'admin'))){
18	+ foreach my $group (@write){
19	$acl .= 'g:'.$group.':rwx,';
20	}
21	- foreach my $group (split(/[;,]/,($properties {'ReadGroups'} \|\| 'admin'))){
22	+ foreach my $group (@read){
23	$acl .= 'g:'.$group.':rx,';
24	}
25	system($setfacl,
26	@@ -110,10 +112,10 @@
27	elsif (-f)
28	{
29	chmod $::fileperm, $_;
30	- foreach my $group (split(/[;,]/,($properties {'WriteGroups'} \|\| 'admin'))){
31	+ foreach my $group (@write){
32	$acl .= 'g:'.$group.':rw,';
33	}
34	- foreach my $group (split(/[;,]/,($properties {'ReadGroups'} \|\| 'admin'))){
35	+ foreach my $group (@read){
36	$acl .= 'g:'.$group.':r,';
37	}
38	system($setfacl,