steffen: server/perl-kolab/Kolab-Conf Conf.pm,1.55.2.3,1.55.2.4

[cvs at intevation.de]

Author: steffen

Update of /kolabrepository/server/perl-kolab/Kolab-Conf
In directory doto:/tmp/cvs-serv7767/Kolab-Conf

Modified Files:
      Tag: kolab_2_0_branch
	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.55.2.3
retrieving revision 1.55.2.4
diff -u -d -r1.55.2.3 -r1.55.2.4
--- Conf.pm	16 Sep 2005 12:37:34 -0000	1.55.2.3
+++ Conf.pm	17 Sep 2005 14:32:45 -0000	1.55.2.4
@@ -405,12 +405,7 @@
     my $count = 60000;
     if ($mesg->code <= 0) {
         foreach $ldapobject ($mesg->entries) {
-	    my @dcs = split(/,/,$ldapobject->dn());
-	    my @dn;
-	    while( pop( @dcs ) =~ /dc=(.*)/ ) {
-	      push(@dn, $1);
-	    }
-            my $group = $ldapobject->get_value('cn') . '@'.join('.',reverse(@dn)) . ":*:$count:";
+            my $group = lc($ldapobject->get_value('cn')) . '@'.$Kolab::config{'postfix-mydomain'};
             my $userlist = $ldapobject->get_value('member', asref => 1);
             foreach (@$userlist) {
 	      my $uid = $_;
@@ -421,7 +416,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/,$//;