/[A3C]/lib/A3C/LDAP/Server.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/Server.pm

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

revision 223 by dpavlin, Thu Jun 26 21:57:33 2008 UTC revision 224 by dpavlin, Thu Jun 26 23:29:56 2008 UTC
# Line 49  sub bind { Line 49  sub bind {
49                  resultCode => LDAP_UNAVAILABLE,                  resultCode => LDAP_UNAVAILABLE,
50          };          };
51    
52          warn "## upstream = ",dump( $self->{upstream} );  #       warn "## upstream = ",dump( $self->{upstream} );
53  #       warn "upstream not Net::LDAP but ",ref($self->{upstream}) unless ref($self->{upstream}) eq 'Net::LDAP';  #       warn "upstream not Net::LDAP but ",ref($self->{upstream}) unless ref($self->{upstream}) eq 'Net::LDAP';
54    
55          return RESULT_OK;          return RESULT_OK;
# Line 81  sub search { Line 81  sub search {
81  #                                          . '(objectClass=hrEduPerson)(host=aai.irb.hr))';  #                                          . '(objectClass=hrEduPerson)(host=aai.irb.hr))';
82          }          }
83    
84          warn "search upstream for $filter";          warn "search upstream for $filter\n";
85    
86          my $search = $self->{upstream}->search(          my $search = $self->{upstream}->search(
87                  base => $req->{baseObject},                  base => $req->{baseObject},
# Line 95  sub search { Line 95  sub search {
95                  raw => qr/.*/,                  raw => qr/.*/,
96          );          );
97    
98          warn "# search = ",dump( $search );  #       warn "# search = ",dump( $search );
99    
100          if ( $search->code != LDAP_SUCCESS ) {          if ( $search->code != LDAP_SUCCESS ) {
101                  warn "ERROR: ",$search->code,": ",$search->server_error;                  warn "ERROR: ",$search->code,": ",$search->server_error;
# Line 107  sub search { Line 107  sub search {
107          };          };
108    
109          my @entries = $search->entries;          my @entries = $search->entries;
110          warn "## got ", $search->count, " entries for ", $filter;          warn "## got ", $search->count, " entries for $filter\n";
111          foreach my $entry (@entries) {          foreach my $entry (@entries) {
112                  $entry->changetype('add');  # Don't record changes.                  $entry->changetype('add');  # Don't record changes.
113  #               foreach my $attr ($entry->attributes) {  #               foreach my $attr ($entry->attributes) {
Legend:
Removed from v.223  
changed lines
  Added in v.224
  ViewVC Help
Powered by ViewVC 1.1.26