projects
/
licom.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
(
my $mesg = $Ldap->search
(
- base => get_config ('base_dn'),
+ base =>
'ou=Group,' .
get_config ('base_dn'),
filter => "(&(objectClass=groupOfNames)(cn=$name))"
);
filter => "(&(objectClass=groupOfNames)(cn=$name))"
);
@@
-76,7
+76,7
@@
sub load_by_member
my $mesg = $Ldap->search
(
my $mesg = $Ldap->search
(
- base => get_config ('base_dn'),
+ base =>
'ou=Group,' .
get_config ('base_dn'),
filter => "(&(objectClass=groupOfNames)(member=$dn))"
);
filter => "(&(objectClass=groupOfNames)(member=$dn))"
);
@@
-110,7
+110,7
@@
sub create ($$$@)
my $desc = shift;
my @members = @_;
my $dn = _cn_to_dn ($name);
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 ();
my $entry = Net::LDAP::Entry->new ();
@@
-146,7
+146,7
@@
sub all
my $mesg = $Ldap->search
(
my $mesg = $Ldap->search
(
- base => get_config ('base_dn'),
+ base =>
'ou=Group,' .
get_config ('base_dn'),
filter => "(objectClass=groupOfNames)"
);
filter => "(objectClass=groupOfNames)"
);
@@
-308,7
+308,7
@@
sub _cn_to_dn
my $cn = shift;
my $base_dn = get_config ('base_dn') or die;
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
}
sub _update_members