smeserver-shared-folders/contribs8/smeserver-shared-folders-0.1-enc_shares_user_acl.patch

diff -Nur smeserver-shared-folders-0.1/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/userpanelEncfs.pm smeserver-shared-folders-0.1_mod/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/userpanelEncfs.pm
--- smeserver-shared-folders-0.1/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/userpanelEncfs.pm 2012-10-11 10:11:38.677576616 +0200
+++ smeserver-shared-folders-0.1_mod/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/userpanelEncfs.pm     2012-10-11 10:12:47.802118276 +0200
@@ -46,6 +46,7 @@
 
     foreach (@shares){
         my @sharegroups = split(/[,;]/, ($_->prop('WriteGroups') || '') .','. ($_->prop('ReadGroups') || ''));
+        my @shareusers = split(/[,;]/, ($_->prop('WriteUsers') || '') .','. ($_->prop('ReadUsers') || ''));
         @sharegroups = keys %{{ map { $_ => 1 } @sharegroups }};
 
         my %count = ();
@@ -58,7 +59,7 @@
         # Only display the share in the list if encryption is enabled
         # and the user has at least read access
         if ((($_->prop('Encryption') || 'disabled') eq 'enabled') &&
-            ((scalar @intersection > 0 ) || $user eq 'admin')){
+            ((scalar @intersection > 0 ) || (grep { $_ eq $user} @shareusers) || ($user eq 'admin'))){
             push @encfs, $_;
         }
     }
1	diff -Nur smeserver-shared-folders-0.1/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/userpanelEncfs.pm smeserver-shared-folders-0.1_mod/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/userpanelEncfs.pm
2	--- smeserver-shared-folders-0.1/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/userpanelEncfs.pm 2012-10-11 10:11:38.677576616 +0200
3	+++ smeserver-shared-folders-0.1_mod/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/userpanelEncfs.pm 2012-10-11 10:12:47.802118276 +0200
4	@@ -46,6 +46,7 @@
5
6	foreach (@shares){
7	my @sharegroups = split(/[,;]/, ($_->prop('WriteGroups') \|\| '') .','. ($_->prop('ReadGroups') \|\| ''));
8	+ my @shareusers = split(/[,;]/, ($_->prop('WriteUsers') \|\| '') .','. ($_->prop('ReadUsers') \|\| ''));
9	@sharegroups = keys %{{ map { $_ => 1 } @sharegroups }};
10
11	my %count = ();
12	@@ -58,7 +59,7 @@
13	# Only display the share in the list if encryption is enabled
14	# and the user has at least read access
15	if ((($_->prop('Encryption') \|\| 'disabled') eq 'enabled') &&
16	- ((scalar @intersection > 0 ) \|\| $user eq 'admin')){
17	+ ((scalar @intersection > 0 ) \|\| (grep { $_ eq $user} @shareusers) \|\| ($user eq 'admin'))){
18	push @encfs, $_;
19	}
20	}