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, $_; } }