steffen: server/perl-kolab/Kolab-LDAP LDAP.pm,1.22,1.23
cvs at intevation.de
cvs at intevation.de
Tue Nov 2 14:33:10 CET 2004
Author: steffen
Update of /kolabrepository/server/perl-kolab/Kolab-LDAP
In directory doto:/tmp/cvs-serv7974/Kolab-LDAP
Modified Files:
LDAP.pm
Log Message:
post rights added to acls
Index: LDAP.pm
===================================================================
RCS file: /kolabrepository/server/perl-kolab/Kolab-LDAP/LDAP.pm,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -d -r1.22 -r1.23
--- LDAP.pm 11 Oct 2004 14:49:21 -0000 1.22
+++ LDAP.pm 2 Nov 2004 13:33:08 -0000 1.23
@@ -197,19 +197,30 @@
my $sf = shift || 0;
my @acls = map {
my ($uid,$perm) = split(/\s+/,$_,2);
+ Kolab::log('L', "Kolab::LDAP::mapAcls() uid=$uid perm=$perm", KOLAB_DEBUG);
+ my $post = 0;
+ if( $perm =~ /(.*)\/post/ ) {
+ $perm = $1;
+ $post = 1;
+ }
+ Kolab::log('L', "Kolab::LDAP::mapAcls() uid=$uid perm=$perm post=$post", KOLAB_DEBUG);
if( lc $perm eq 'none' ) { $_ = "$uid none"; }
+ elsif( lc $perm eq 'post' ) { $_ = "$uid p"; }
elsif( lc $perm eq 'read' ) { $_ = "$uid lrs"; }
- elsif( lc $perm eq 'append' ) { $_ = "$uid lrsi"; }
- elsif( lc $perm eq 'write' ) { $_ = "$uid lrsiwcd"; }
elsif( lc $perm eq 'read anon' ) { $_ = "$uid lr"; }
elsif( lc $perm eq 'read hidden' ) { $_ = "$uid rs"; }
- elsif( lc $perm eq 'all' ) { if( $sf ) { $_ = "$uid lrsiwcd"; } else { $_ = "$uid lrsiwcda"; } }
+ elsif( lc $perm eq 'append' ) { $_ = "$uid lrsip"; }
+ elsif( lc $perm eq 'write' ) { $_ = "$uid lrsiwcdp"; }
+ elsif( lc $perm eq 'all' ) { if( $sf ) { $_ = "$uid lrsiwcdp"; } else { $_ = "$uid lrsiwcdap"; } }
else { $_ = "$uid $perm"; } # passthrough
+ if( $post ) { $_ .= 'p'; }
+ Kolab::log('L', "Kolab::LDAP::mapAcls() acl=$_", KOLAB_DEBUG);
} @$acls;
if( $sf ) {
# Do we need to push admin rights for manager?
}
- return \@acls;
+ Kolab::log('L', "Kolab::LDAP::mapAcls() acls=".join(", ", @$acls), KOLAB_DEBUG);
+ return $acls;
}
sub createObject
More information about the commits
mailing list