steffen: server/perl-kolab/Kolab-Conf Conf.pm,1.62,1.63
cvs at intevation.de
cvs at intevation.de
Sat Sep 17 16:21:25 CEST 2005
Author: steffen
Update of /kolabrepository/server/perl-kolab/Kolab-Conf
In directory doto:/tmp/cvs-serv7430/Kolab-Conf
Modified Files:
Conf.pm
Log Message:
Fix for Issue801 (lowercase value of mail attr)
Index: Conf.pm
===================================================================
RCS file: /kolabrepository/server/perl-kolab/Kolab-Conf/Conf.pm,v
retrieving revision 1.62
retrieving revision 1.63
diff -u -d -r1.62 -r1.63
--- Conf.pm 29 Jul 2005 02:15:52 -0000 1.62
+++ Conf.pm 17 Sep 2005 14:21:23 -0000 1.63
@@ -528,7 +528,7 @@
if ($mesg->code <= 0) {
foreach $ldapobject ($mesg->entries) {
#my $group = $ldapobject->get_value('cn') . '@'.join('.',reverse(@dn)) . ":*:$count:";
- my $group = $ldapobject->get_value('mail').":*:$count:";
+ my $group = lc($ldapobject->get_value('mail')).":*:$count:";
my $userlist = $ldapobject->get_value('member', asref => 1);
foreach (@$userlist) {
my $uid = $_;
@@ -539,7 +539,7 @@
my $mail;
($mail = $umesg->entry(0)->get_value('mail')) or
($mail = $umesg->entry(0)->get_value('uid'));
- $group .= $mail.',';
+ $group .= lc($mail).',';
}
}
$group =~ s/,$//;
More information about the commits
mailing list