/[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 53 by dpavlin, Tue Apr 1 17:32:59 2008 UTC revision 101 by dpavlin, Thu May 1 12:59:02 2008 UTC
# Line 115  sub count { Line 115  sub count {
115  =cut  =cut
116    
117  my $collection2filter = {  my $collection2filter = {
118          'User'                  => '(objectClass=hrEduPerson)',          'Person'                => '(objectClass=hrEduPerson)',
119          'Organization'  => '(objectClass=hrEduOrg)',          'Organization'  => '(objectClass=hrEduOrg)',
120  };  };
121    
# Line 127  sub collection { Line 127  sub collection {
127          $args->{limit} ||= 0;   # unlimited by default          $args->{limit} ||= 0;   # unlimited by default
128    
129          my $filter = $collection2filter->{$model};          my $filter = $collection2filter->{$model};
130          die "unknown model $model" unless $filter;  #       die "unknown model $model" unless $filter;
131            # fallback to model named as objectClass
132            $filter ||= "(objectClass=$model)";
133    
134          # add user filter          # add user filter
135          $filter = '(&' . $filter . $args->{filter} . ')' if $args->{filter};          $filter = '(&' . $filter . $args->{filter} . ')' if $args->{filter};
# Line 139  sub collection { Line 141  sub collection {
141          );          );
142    
143          Jifty->log->info(          Jifty->log->info(
144                  "searching LDAP for $model with $filter ",                  "Searching LDAP for $model with $filter ",
145                  $args->{limit} ? 'limit ' . $args->{limit} : '',                  $args->{limit} ? 'limit ' . $args->{limit} . ' ' : '',
146                  'returned ', $self->count, ' results'                  'returned ', $self->count, ' results'
147          );          );
148    
# Line 151  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;
 #               if ( $model eq 'User' ) {  
 #                       my $organization = A3C::Model::Organization->new;  
 #                       $self->ldap2model( $organization, $entry );  
 #                       $additional->{organization} = $organization;  
 #               }  
156                  $self->ldap2model( $model_obj, $entry, %$additional );                  $self->ldap2model( $model_obj, $entry, %$additional );
157                  $collection->add_record( $model_obj );                  $collection->add_record( $model_obj );
158          }          }
Legend:
Removed from v.53  
changed lines
  Added in v.101
  ViewVC Help
Powered by ViewVC 1.1.26