source: LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad/Group.pm @ 105

Last change on this file since 105 was 105, checked in by nanardon, 15 years ago
  • ensure error are returned
  • Property svn:keywords set to Id Rev
File size: 4.2 KB
Line 
1package LATMOS::Accounts::Bases::Ad::Group;
2
3use 5.010000;
4use strict;
5use warnings;
6
7use base qw(LATMOS::Accounts::Bases::Ad::objects);
8use Net::LDAP;
9use Net::LDAP::Entry;
10use Net::LDAP::Control::Paged;
11use Net::LDAP::Constant qw( LDAP_CONTROL_PAGED ); 
12use Net::LDAP::Util     qw( escape_filter_value );
13
14our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0];
15
16=head1 NAME
17
18LATMOS::Ad - Perl extension for blah blah blah
19
20=head1 SYNOPSIS
21
22  use LATMOS::Ad;
23  blah blah blah
24
25=head1 DESCRIPTION
26
27Stub documentation for LATMOS::Ad, created by h2xs. It looks like the
28author of the extension was negligent enough to leave the stub
29unedited.
30
31Blah blah blah.
32
33=head1 FUNCTIONS
34
35=cut
36
37sub _class_filter { '(ObjectClass=group)' }
38
39sub _key_attr { 'cn' } 
40
41sub _delayed_fields {
42    my ($self)= @_;
43    return qw(memberUID member);
44}
45
46sub _canonical_fields {
47    my ($self, $base, $mode) = @_;
48    (
49        qw(gidNumber description member memberUID), # sAMAccountName: conflict with user
50        ($mode !~ /w/
51            ? qw(cn dn)
52            : ()
53        )
54    )
55}
56
57sub _create {
58    my ($class, $base, $id, %data) = @_;
59
60    my $entry = Net::LDAP::Entry->new();
61
62    $entry->dn(join(',',
63        sprintf('cn=%s', escape_filter_value($id)),
64        $base->object_base_dn($class->type),
65    ));
66    $entry->replace(objectClass => [ qw(top group)],);
67    foreach (keys %data) {
68        $class->_populate_entry($entry, $_, $data{$_});
69    }
70    my $msg = $base->ldap->add($entry);
71    warn $msg->error if ($msg->code);
72    return $msg->code ? 0 : 1;
73}
74
75sub get_field {
76    my ($self, $field) = @_;
77
78    $field eq 'member' and do {
79        my @res;
80        $self->base->_unlimited_search(
81            base => $self->base->object_base_dn('user'),
82            filter => sprintf(
83                '(&(objectClass=user)(memberOf=%s))',
84                escape_filter_value($self->{entry}->dn),
85            ),
86            callback => sub {
87                my ($mesg, $entry) = @_;
88                ref $entry eq 'Net::LDAP::Entry' or return;
89                push(@res, $entry->get_value('cn'));
90            },
91        );
92        return [ sort(@res) ];
93    };
94    $field eq 'memberUID' and do {
95        my $val = $self->SUPER::get_field($field);
96        return ref $val ? $val : [ grep { $_ } $val ];
97    };
98    $self->SUPER::get_field($field);
99}
100
101sub set_fields {
102    my ($self, %data) = @_;
103    my %ndata;
104    while (my ($f, $val) = each(%data)) {
105        $f eq 'memberUID' and do {
106            my %users;
107            $users{$_}{e} = 1 foreach (@{ $self->get_field('memberUID') || []});
108            $users{$_}{n} = 1 foreach (@{ $val || []});
109            foreach (keys %users) {
110                $users{$_}{e} && $users{$_}{n} and next;
111                my $user = $self->base->get_object('user', $_) or next;
112                if ($users{$_}{e}) {
113                    $self->{entry}->del(memberUID => $_);
114                } elsif ($users{$_}{n}) {
115                    $self->{entry}->add(memberUID => $_);
116                } # else {} # can't happen
117                my $mesg = $self->{entry}->update($self->base->ldap);
118            }
119            next;
120        };
121        $f eq 'member' and do {
122            my %users;
123            $users{$_}{e} = 1 foreach (@{ $self->get_field('member') || []});
124            $users{$_}{n} = 1 foreach (@{ $val || []});
125            foreach (keys %users) {
126                $users{$_}{e} && $users{$_}{n} and next;
127                my $user = $self->base->get_object('user', $_) or next;
128                if ($users{$_}{e}) {
129                    $self->{entry}->del(member => $user->get_field('dn'));
130                } elsif ($users{$_}{n}) {
131                    $self->{entry}->add(member => $user->get_field('dn'));
132                } # else {} # can't happen
133            }
134            next;
135        };
136        $ndata{$f} = $val;
137    }
138    $self->SUPER::set_fields(%ndata);
139}
140
1411;
142
143__END__
144
145=head1 SEE ALSO
146
147=head1 AUTHOR
148
149Olivier Thauvin, E<lt>olivier.thauvin@aerov.jussieu.frE<gt>
150
151=head1 COPYRIGHT AND LICENSE
152
153Copyright (C) 2008 CNRS SA/CETP/LATMOS
154
155This library is free software; you can redistribute it and/or modify
156it under the same terms as Perl itself, either Perl version 5.10.0 or,
157at your option, any later version of Perl 5 you may have available.
158
159
160=cut
Note: See TracBrowser for help on using the repository browser.