+sub _cn_to_dn
+{
+ my $cn = shift;
+ my $base_dn = get_config ('base_dn') or die;
+
+ return ('cn=' . $cn . ',' . $base_dn);
+}
+
+sub _update_members
+{
+ my $obj = shift;
+ my $entry = $obj->{'ldap'};
+ my @tmp = map { _cn_to_dn ($_); } (@{$obj->{'members'}});
+
+ $entry->changetype ('modify');
+ $entry->replace (member => \@tmp);
+ $entry->update ($Ldap);
+}