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