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

diff -Nur smeserver-shared-folders-0.1/root/etc/e-smith/templates/etc/httpd/conf/httpd.conf/90e-smithAccess50shares smeserver-shared-folders-0.1_mod/root/etc/e-smith/templates/etc/httpd/conf/httpd.conf/90e-smithAccess50shares
--- smeserver-shared-folders-0.1/root/etc/e-smith/templates/etc/httpd/conf/httpd.conf/90e-smithAccess50shares   2011-03-29 16:28:07.000000000 +0200
+++ smeserver-shared-folders-0.1_mod/root/etc/e-smith/templates/etc/httpd/conf/httpd.conf/90e-smithAccess50shares       2011-03-29 16:31:43.000000000 +0200
@@ -17,7 +17,8 @@
        my $webdav = (($properties{'WebDav'} || 'disabled') =~ m/^(enabled|on|yes)$/i) ? 1 : 0;
 
        # Find which users has at least read access
-       my @users = ('admin');
+       my @writers = ('admin');
+       my @readers = ();
        if ($properties{'WriteGroups'}) {
            my @groups = split (/[;,]/, $properties{'WriteGroups'});
 
@@ -42,9 +43,11 @@
         }
 
        my %seen = ();
-       my @readers = sort (grep { ! $seen{ $_ }++ } (@readers,@writers));
+       @readers = sort (grep { ! $seen{ $_ }++ } (@readers,@writers));
+       %seen = ();
+       @writers = sort (grep { ! $seen{ $_ }++ } (@writers));
 
-        my $readers = join(" ", @readers) || '';
+       my $readers = join(" ", @readers) || '';
        my $writers = join(" ", @writers) || '';
        
        if ($properties{'httpAccess'})
1	diff -Nur smeserver-shared-folders-0.1/root/etc/e-smith/templates/etc/httpd/conf/httpd.conf/90e-smithAccess50shares smeserver-shared-folders-0.1_mod/root/etc/e-smith/templates/etc/httpd/conf/httpd.conf/90e-smithAccess50shares
2	--- smeserver-shared-folders-0.1/root/etc/e-smith/templates/etc/httpd/conf/httpd.conf/90e-smithAccess50shares 2011-03-29 16:28:07.000000000 +0200
3	+++ smeserver-shared-folders-0.1_mod/root/etc/e-smith/templates/etc/httpd/conf/httpd.conf/90e-smithAccess50shares 2011-03-29 16:31:43.000000000 +0200
4	@@ -17,7 +17,8 @@
5	my $webdav = (($properties{'WebDav'} \|\| 'disabled') =~ m/^(enabled\|on\|yes)$/i) ? 1 : 0;
6
7	# Find which users has at least read access
8	- my @users = ('admin');
9	+ my @writers = ('admin');
10	+ my @readers = ();
11	if ($properties{'WriteGroups'}) {
12	my @groups = split (/[;,]/, $properties{'WriteGroups'});
13
14	@@ -42,9 +43,11 @@
15	}
16
17	my %seen = ();
18	- my @readers = sort (grep { ! $seen{ $_ }++ } (@readers,@writers));
19	+ @readers = sort (grep { ! $seen{ $_ }++ } (@readers,@writers));
20	+ %seen = ();
21	+ @writers = sort (grep { ! $seen{ $_ }++ } (@writers));
22
23	- my $readers = join(" ", @readers) \|\| '';
24	+ my $readers = join(" ", @readers) \|\| '';
25	my $writers = join(" ", @writers) \|\| '';
26
27	if ($properties{'httpAccess'})