smeserver-shared-folders/contribs9/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	vip-ire	1.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'})