/[A3C]/lib/A3C/LDAP.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/A3C/LDAP.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 101 by dpavlin, Thu May 1 12:59:02 2008 UTC revision 104 by dpavlin, Thu May 1 14:52:48 2008 UTC
# Line 153  sub collection { Line 153  sub collection {
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    
# Line 168  Following methods map directly into L<Ne Line 168  Following methods map directly into L<Ne
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    
# Line 184  sub ldap2model { Line 184  sub ldap2model {
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    
Legend:
Removed from v.101  
changed lines
  Added in v.104
  ViewVC Help
Powered by ViewVC 1.1.26