steffen: server/perl-kolab/Kolab-Conf Conf.pm,1.22,1.23

[cvs at intevation.de]

Author: steffen

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

Modified Files:
	Conf.pm 
Log Message:
group vdomain fix

Index: Conf.pm
===================================================================
RCS file: /kolabrepository/server/perl-kolab/Kolab-Conf/Conf.pm,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -d -r1.22 -r1.23
--- Conf.pm	21 Jun 2004 03:20:36 -0000	1.22
+++ Conf.pm	4 Jul 2004 11:21:42 -0000	1.23
@@ -385,7 +385,12 @@
     my $count = 60000;
     if ($mesg->code <= 0) {
         foreach $ldapobject ($mesg->entries) {
-            my $group = $ldapobject->get_value('cn') . ":*:$count:";
+	    my @dcs = split(/,/, at ldap_object->dn());
+	    my @dn;
+	    while( pop( @dcs ) =~ /dc=(.*)/ ) {
+	      push(@dn, $1);
+	    }
+            my $group = $ldapobject->get_value('cn') . '@'.join('.',reverse(@dn)) . ":*:$count:";
             my $userlist = $ldapobject->get_value('member', asref => 1);
             foreach (@$userlist) {
 	      my $uid = $_;