/[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 224 by dpavlin, Thu Jun 26 23:29:56 2008 UTC revision 225 by dpavlin, Fri Jun 27 11:38:36 2008 UTC
# Line 17  use fields qw(upstream); Line 17  use fields qw(upstream);
17  use A3C::LDAP;  use A3C::LDAP;
18  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
19    
20    =head1 NAME
21    
22    A3C::LDAP::Server
23    
24    =cut
25    
26    =head1 DESCRIPTION
27    
28    Provide LDAP server functionality for L<A3C> somewhat similar to C<slapo-rwm>
29    
30    =cut
31    
32  use constant RESULT_OK => {  use constant RESULT_OK => {
33          'matchedDN' => '',          'matchedDN' => '',
34          'errorMessage' => '',          'errorMessage' => '',
# Line 109  sub search { Line 121  sub search {
121          my @entries = $search->entries;          my @entries = $search->entries;
122          warn "## got ", $search->count, " entries for $filter\n";          warn "## got ", $search->count, " entries for $filter\n";
123          foreach my $entry (@entries) {          foreach my $entry (@entries) {
124                  $entry->changetype('add');  # Don't record changes.  #               $entry->changetype('add');  # Don't record changes.
125  #               foreach my $attr ($entry->attributes) {  #               foreach my $attr ($entry->attributes) {
126  #                       if ($attr =~ /;lang-en$/) {  #                       if ($attr =~ /;lang-en$/) {
127  #                               $entry->delete($attr);  #                               $entry->delete($attr);
Legend:
Removed from v.224  
changed lines
  Added in v.225
  ViewVC Help
Powered by ViewVC 1.1.26