Changeset 181

Timestamp:

05/25/09 02:29:23 (15 years ago)

Author:

nanardon

Message:

• cleanup

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad.pm (modified) (2 diffs)

LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad.pm

@@ -220 +220 @@
         $page->cookie($cookie);
         $page->size(0);
-        $self->search(@args, control => [ $page ]);
+        $self->ldap->search(@args, control => [ $page ]);
     }
     return 1;
@@ -233 +233 @@
 }
 
-sub get_group_users {
-    my ($self, $groupname, @searchargs) = @_;
-    my $gr = $self->get_group($groupname, attrs => [ qw(cn member) ]);
-
-    my @res;
-    foreach my $dnu (@{ $gr->get_value('member', asref => 1) || [] }) {
-        my $mesg = $self->search(
-            filter => '(objectClass=*)', # TODO can we get something else than user ?
-            @searchargs,
-            base => $dnu,
-        );
-
-        $mesg->code and return; # ensure error is propagate here
-        foreach my $entry ($mesg->entries) {
-           push(@res, $entry);
-       } 
-    }
-    @res
-}
-
-sub get_user_groups {
-    my ($self, $username, @searchargs) = @_;
-    my $user = $self->get_user($username);
-
-    my @res;
-    $self->unlimited_search(
-        base => $self->top_dn,
-        filter => sprintf(
-            '(&(objectClass=group)(member=%s))',
-            escape_filter_value($user->dn),
-        ),
-        @searchargs,
-        callback => sub {
-            my ($mesg, $entry) = @_;
-            ref $entry eq 'Net::LDAP::Entry' or return;
-            push(@res, $entry);
-        },
-    );
-
-    @res
-}
-
-sub add_user_group {
-    my ($self, $username, $groupname) = @_;
-
-    my $user = $self->get_user($username) or return;
-    my $group = $self->get_group($groupname) or return;
-
-    $group->add(member => $user->dn);
-
-    my $mesg = $group->update($self);
-    if ($mesg->code) {
-        warn $mesg->error;
-        return;
-    } else { return 1 };
-}
-
 1;