smeserver-shared-folders/contribs7/smeserver-shared-folders-0.1-ro_on_top_dir.patch

diff -Nur smeserver-shared-folders-0.1/root/etc/e-smith/events/actions/share-modify smeserver-shared-folders-0.1_mod/root/etc/e-smith/events/actions/share-modify
--- smeserver-shared-folders-0.1/root/etc/e-smith/events/actions/share-modify   2011-06-22 16:03:19.000000000 +0200
+++ smeserver-shared-folders-0.1_mod/root/etc/e-smith/events/actions/share-modify       2011-06-22 16:16:13.000000000 +0200
@@ -112,8 +112,10 @@
        if (-d)
        {
            chmod $::dirperm, $_;
+           chmod $::dirperm, $_;
+           my $perm = ($_ eq '.') ? 'rx':'rwx';
            foreach my $group (@write){
-               $acl .= 'g:'.$group.':rwx,';
+               $acl .= 'g:'.$group.':'.$perm.',';
            }
            foreach my $group (@read){
                 $acl .= 'g:'.$group.':rx,';
1	diff -Nur smeserver-shared-folders-0.1/root/etc/e-smith/events/actions/share-modify smeserver-shared-folders-0.1_mod/root/etc/e-smith/events/actions/share-modify
2	--- smeserver-shared-folders-0.1/root/etc/e-smith/events/actions/share-modify 2011-06-22 16:03:19.000000000 +0200
3	+++ smeserver-shared-folders-0.1_mod/root/etc/e-smith/events/actions/share-modify 2011-06-22 16:16:13.000000000 +0200
4	@@ -112,8 +112,10 @@
5	if (-d)
6	{
7	chmod $::dirperm, $_;
8	+ chmod $::dirperm, $_;
9	+ my $perm = ($_ eq '.') ? 'rx':'rwx';
10	foreach my $group (@write){
11	- $acl .= 'g:'.$group.':rwx,';
12	+ $acl .= 'g:'.$group.':'.$perm.',';
13	}
14	foreach my $group (@read){
15	$acl .= 'g:'.$group.':rx,';