Change the layout assumed on the LDAP server.

[licom.git] / lib / LiCoM / Group.pm

diff --git a/lib/LiCoM/Group.pm b/lib/LiCoM/Group.pm
index 39fd540..a5cade9 100644 (file)
--- a/lib/LiCoM/Group.pm
+++ b/lib/LiCoM/Group.pm
@@ -47,7 +47,7 @@ sub load
 
        my $mesg = $Ldap->search
        (
-               base    => get_config ('base_dn'),
+               base    => 'ou=Group,' . get_config ('base_dn'),
                filter  => "(&(objectClass=groupOfNames)(cn=$name))"
        );
 
@@ -76,7 +76,7 @@ sub load_by_member
 
        my $mesg = $Ldap->search
        (
-               base    => get_config ('base_dn'),
+               base    => 'ou=Group,' . get_config ('base_dn'),
                filter  => "(&(objectClass=groupOfNames)(member=$dn))"
        );
 
@@ -110,7 +110,7 @@ sub create ($$$@)
        my $desc = shift;
        my @members = @_;
        my $dn = _cn_to_dn ($name);
-       my ($ou) = get_config ('base_dn') =~ m/\bou\s*=\s*([^,]+)/i;
+       my $ou = 'Group';
 
        my $entry = Net::LDAP::Entry->new ();
 
@@ -146,7 +146,7 @@ sub all
 
        my $mesg = $Ldap->search
        (
-               base    => get_config ('base_dn'),
+               base    => 'ou=Group,' . get_config ('base_dn'),
                filter  => "(objectClass=groupOfNames)"
        );
 
@@ -308,7 +308,7 @@ sub _cn_to_dn
        my $cn = shift;
        my $base_dn = get_config ('base_dn') or die;
 
-       return ('cn=' . $cn . ',' . $base_dn);
+       return ('cn=' . $cn . ',ou=Group,' . $base_dn);
 }
 
 sub _update_members