steffen: server/perl-kolab/Kolab-LDAP LDAP.pm,1.31.2.5,1.31.2.6
cvs at intevation.de
cvs at intevation.de
Sat Sep 17 16:32:47 CEST 2005
Author: steffen
Update of /kolabrepository/server/perl-kolab/Kolab-LDAP
In directory doto:/tmp/cvs-serv7767/Kolab-LDAP
Modified Files:
Tag: kolab_2_0_branch
LDAP.pm
Log Message:
Fix for Issue801 (lowercase value of mail attr)
Index: LDAP.pm
===================================================================
RCS file: /kolabrepository/server/perl-kolab/Kolab-LDAP/LDAP.pm,v
retrieving revision 1.31.2.5
retrieving revision 1.31.2.6
diff -u -d -r1.31.2.5 -r1.31.2.6
--- LDAP.pm 12 Sep 2005 22:14:13 -0000 1.31.2.5
+++ LDAP.pm 17 Sep 2005 14:32:45 -0000 1.31.2.6
@@ -240,14 +240,14 @@
# No action for groups or external
return if( $objuidfield eq '' );
- my $uid = trim($object->get_value($objuidfield)) || 0;
+ my $uid = lc(trim($object->get_value($objuidfield))) || 0;
return unless $uid;
my $kolabhomeserver = lc($object->get_value('kolabhomeserver'));
my $islocal = 1;
my $del = $object->get_value($Kolab::config{$p . '_field_deleted'}, asref => 1);
if( ref($del) eq 'ARRAY' && @$del > 0 ) {
- Kolab::log('L', "Kolab::LDAP::createObject() skipping object ".$object->get_value($objuidfield)
+ Kolab::log('L', "Kolab::LDAP::createObject() skipping object ".lc($object->get_value($objuidfield))
." because it is deleted");
return;
}
More information about the commits
mailing list