153 |
my $model_obj = Jifty->app_class('Model',$model)->new; |
my $model_obj = Jifty->app_class('Model',$model)->new; |
154 |
#warn dump( $model_obj ); |
#warn dump( $model_obj ); |
155 |
my $additional; |
my $additional; |
156 |
$self->ldap2model( $model_obj, $entry, %$additional ); |
$self->model_from_entry( $model_obj, $entry, %$additional ); |
157 |
$collection->add_record( $model_obj ); |
$collection->add_record( $model_obj ); |
158 |
} |
} |
159 |
|
|
168 |
|
|
169 |
Result of last C<< $ldap->search >> request |
Result of last C<< $ldap->search >> request |
170 |
|
|
171 |
=head2 model_to_entry |
=head2 model_from_entry |
172 |
|
|
173 |
$ldap->model_to_entry( $model, $entry, $additional ); |
$ldap->model_from_entry( $model, $entry, $additional ); |
174 |
|
|
175 |
=cut |
=cut |
176 |
|
|
177 |
sub ldap2model { |
sub model_from_entry { |
178 |
my ( $self, $model, $entry, $additional ) = @_; |
my ( $self, $model, $entry, $additional ) = @_; |
179 |
my $data; |
my $data; |
180 |
|
|
184 |
foreach my $attr ( $entry->attributes ) { |
foreach my $attr ( $entry->attributes ) { |
185 |
if ( grep(/^\Q$attr\E$/, @columns ) ) { |
if ( grep(/^\Q$attr\E$/, @columns ) ) { |
186 |
$data->{$attr} = $entry->get_value( $attr ); |
$data->{$attr} = $entry->get_value( $attr ); |
187 |
} elsif ( $attr !~ m/^(objectClass)$/i ) { |
# } elsif ( $attr !~ m/^(objectClass)$/i ) { |
188 |
Jifty->log->warn(ref($model)," doesn't have $attr"); |
# Jifty->log->warn(ref($model)," doesn't have $attr"); |
189 |
} |
} |
190 |
} |
} |
191 |
|
|