steffen: server/perl-kolab/Kolab-LDAP LDAP.pm,1.29,1.30

cvs at intevation.de cvs at intevation.de
Wed May 4 01:25:46 CEST 2005


Author: steffen

Update of /kolabrepository/server/perl-kolab/Kolab-LDAP
In directory doto:/tmp/cvs-serv24825/Kolab-LDAP

Modified Files:
	LDAP.pm 
Log Message:
no more "c" permissions for public folders (Issue222)

Index: LDAP.pm
===================================================================
RCS file: /kolabrepository/server/perl-kolab/Kolab-LDAP/LDAP.pm,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -d -r1.29 -r1.30
--- LDAP.pm	22 Apr 2005 01:50:19 -0000	1.29
+++ LDAP.pm	3 May 2005 23:25:44 -0000	1.30
@@ -212,8 +212,8 @@
     elsif( lc $perm eq 'read anon' ) { $_ = "$uid lr"; }
     elsif( lc $perm eq 'read hidden' ) { $_ = "$uid rs"; }
     elsif( lc $perm eq 'append' ) { $_ = "$uid lrsip"; }
-    elsif( lc $perm eq 'write' ) { $_ = "$uid lrsiwcdp"; }
-    elsif( lc $perm eq 'all' ) { if( $sf ) { $_ = "$uid lrsiwcdap"; } else { $_ = "$uid lrsiwcdap"; } }
+    elsif( lc $perm eq 'write' ) { if( $sf ) { $_ = "$uid lrsiwdp"; } else { $_ = "$uid lrsiwcdp"; } }
+    elsif( lc $perm eq 'all' ) { if( $sf ) { $_ = "$uid lrsiwdap"; } else { $_ = "$uid lrsiwcdap"; } }
     else { $_ = "$uid $perm"; } # passthrough
     if( $post ) { $_ .= 'p'; }
     Kolab::log('L', "Kolab::LDAP::mapAcls() acl=$_", KOLAB_DEBUG);





More information about the commits mailing list