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	vip-ire	1.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,