steffen: server/perl-kolab/Kolab-LDAP LDAP.pm,1.22,1.23

[cvs at intevation.de]

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