steffen: server/perl-kolab/Kolab-LDAP LDAP.pm,1.31.2.2,1.31.2.3
cvs at intevation.de
cvs at intevation.de
Thu Jul 28 03:52:50 CEST 2005
Author: steffen
Update of /kolabrepository/server/perl-kolab/Kolab-LDAP
In directory doto:/tmp/cvs-serv1019/Kolab-LDAP
Modified Files:
Tag: kolab_2_0_branch
LDAP.pm
Log Message:
deletion handling
Index: LDAP.pm
===================================================================
RCS file: /kolabrepository/server/perl-kolab/Kolab-LDAP/LDAP.pm,v
retrieving revision 1.31.2.2
retrieving revision 1.31.2.3
diff -u -d -r1.31.2.2 -r1.31.2.3
--- LDAP.pm 19 Jul 2005 01:32:39 -0000 1.31.2.2
+++ LDAP.pm 28 Jul 2005 01:52:48 -0000 1.31.2.3
@@ -237,8 +237,10 @@
Kolab::log('L', "Kolab::LDAP::createObject() called with obj uid field `$objuidfield' for obj type `$p'", KOLAB_DEBUG);
- # No action for groups
+ # No action for groups or external
return if( $objuidfield eq '' );
+ my $uid = trim($object->get_value($objuidfield)) || 0;
+ return unless $uid;
my $kolabhomeserver = lc($object->get_value('kolabhomeserver'));
my $islocal = 1;
@@ -257,7 +259,6 @@
$islocal = 0;
}
- my $uid = trim($object->get_value($objuidfield)) || 0;
if( $p eq 'sf' ) {
# We have to create shared folders
# with names user.<fldrname>@<domain>
@@ -480,7 +481,7 @@
}
%newuid_db = ();
- syncBasic($cyrus, 'user', '(uid=*)', 0);
+ syncBasic($cyrus, 'user', '', 0);
syncBasic($cyrus, 'sf', '', 1);
syncBasic($cyrus, 'group', '', 0);
More information about the commits
mailing list