/[smecontribs]/rpms/smeserver-shared-folders/contribs9/smeserver-shared-folders-0.1-optimize_permissions.patch
ViewVC logotype

Annotation of /rpms/smeserver-shared-folders/contribs9/smeserver-shared-folders-0.1-optimize_permissions.patch

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.2 - (hide annotations) (download)
Mon Nov 11 19:36:29 2013 UTC (10 years, 11 months ago) by unnilennium
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +0 -0 lines
FILE REMOVED
cleaning tree from patchs

1 vip-ire 1.1 diff -Nur -x '*.orig' -x '*.rej' smeserver-shared-folders-0.1/root/etc/e-smith/events/actions/share-modify mezzanine_patched_smeserver-shared-folders-0.1/root/etc/e-smith/events/actions/share-modify
2     --- smeserver-shared-folders-0.1/root/etc/e-smith/events/actions/share-modify 2009-04-08 11:55:18.000000000 +0200
3     +++ mezzanine_patched_smeserver-shared-folders-0.1/root/etc/e-smith/events/actions/share-modify 2009-05-17 20:11:46.000000000 +0200
4     @@ -76,6 +76,8 @@
5     #--------------------------------------------------
6    
7     my %properties = $share->props;
8     +my @write = split(/[;,]/,($properties {'WriteGroups'} || 'admin'));
9     +my @read = split(/[;,]/,($properties {'ReadGroups'} || 'admin'));
10     $::group = 'admin';
11    
12     # Make sensible defaults
13     @@ -96,10 +98,10 @@
14     if (-d)
15     {
16     chmod $::dirperm, $_;
17     - foreach my $group (split(/[;,]/,($properties {'WriteGroups'} || 'admin'))){
18     + foreach my $group (@write){
19     $acl .= 'g:'.$group.':rwx,';
20     }
21     - foreach my $group (split(/[;,]/,($properties {'ReadGroups'} || 'admin'))){
22     + foreach my $group (@read){
23     $acl .= 'g:'.$group.':rx,';
24     }
25     system($setfacl,
26     @@ -110,10 +112,10 @@
27     elsif (-f)
28     {
29     chmod $::fileperm, $_;
30     - foreach my $group (split(/[;,]/,($properties {'WriteGroups'} || 'admin'))){
31     + foreach my $group (@write){
32     $acl .= 'g:'.$group.':rw,';
33     }
34     - foreach my $group (split(/[;,]/,($properties {'ReadGroups'} || 'admin'))){
35     + foreach my $group (@read){
36     $acl .= 'g:'.$group.':r,';
37     }
38     system($setfacl,

admin@koozali.org
ViewVC Help
Powered by ViewVC 1.2.1 RSS 2.0 feed