/[virtual-ldap]/lib/LDAP/Koha.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/LDAP/Koha.pm

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

revision 38 by dpavlin, Wed Mar 25 22:06:00 2009 UTC revision 39 by dpavlin, Wed Mar 25 22:57:01 2009 UTC
# Line 22  our $database = 'koha'; Line 22  our $database = 'koha';
22  our $user     = 'unconfigured-user';  our $user     = 'unconfigured-user';
23  our $passwd   = 'unconfigured-password';  our $passwd   = 'unconfigured-password';
24    
25  our $max_results = 3; # 100; # FIXME  our $max_results = 10; # 100; # FIXME
26    
27  require 'config.pl' if -e 'config.pl';  require 'config.pl' if -e 'config.pl';
28    
# Line 34  my $dbh = DBI->connect($dsn . $database, Line 34  my $dbh = DBI->connect($dsn . $database,
34  my $sql_select = q{  my $sql_select = q{
35          select          select
36                  trim(userid)                                    as uid,                  trim(userid)                                    as uid,
37                  firstname                                               as givenName,                  firstname                                       as givenName,
38                  surname                                                 as sn,                  surname                                         as sn,
39                  concat(firstname,' ',surname)   as cn,                  concat(firstname,' ',surname)                   as cn,
40    
41                  -- SAFEQ specific mappings from UMgr-LDAP.conf                  -- SAFEQ specific mappings from UMgr-LDAP.conf
42                  concat(firstname,' ',surname)   as displayName,                  surname                                         as displayName,
43                  cardnumber                                              as otherPager,                  cardnumber                                      as pager,
44                  email                                                   as mail,                  email                                           as mail,
45                  categorycode                                    as organizationalUnit,                  categorycode                                    as organizationalUnit,
46                  borrowernumber                                  as objectGUID,                  borrowernumber                                  as objectGUID,
47                  concat('/home/',borrowernumber) as homeDirectory                  concat('/home/',borrowernumber)                 as homeDirectory
48          from borrowers          from borrowers
49  };  };
50    
51  # needed for where clause  # we need reverse LDAP -> SQL mapping for where clause
52  my $sql_ldap_mapping = {  my $ldap_sql_mapping = {
53          'userid'                        => 'uid',          'uid'           => 'userid',
54          'borrowernumber'        => 'objectGUID',          'objectGUID'    => 'borrowernumber',
55            'displayName'   => 'surname',
56            'sn'            => 'surname',
57            'pager'         => 'cardnumber',
58  };  };
59    
60  # attributes which are same for whole set, but somehow  # attributes which are same for whole set, but somehow
# Line 61  my $ldap_ignore = { Line 64  my $ldap_ignore = {
64          'objectclass' => 1,          'objectclass' => 1,
65  };  };
66    
 my $ldap_sql_mapping;  
 while ( my ($sql,$ldap) = each %$sql_ldap_mapping ) {  
         $ldap_sql_mapping->{ $ldap } = $sql;  
 }  
   
67  sub __sql_column {  sub __sql_column {
68          my $name = shift;          my $name = shift;
69          $ldap_sql_mapping->{$name} || $name;          $ldap_sql_mapping->{$name} || $name;
# Line 93  sub bind { Line 91  sub bind {
91          return RESULT_OK;          return RESULT_OK;
92  }  }
93    
94    our @values;
95    our @limits;
96    
97    sub __ldap_search_to_sql {
98            my ( $how, $what ) = @_;
99            warn "### how $how\n";
100            if ( $how eq 'equalityMatch' && defined $what ) {
101                    my $name = $what->{attributeDesc} || warn "ERROR: no attributeDesc?";
102                    my $value = $what->{assertionValue} || warn "ERROR: no assertionValue?";
103                    if ( ! $ldap_ignore->{ $name } ) {
104                            push @limits, __sql_column($name) . ' = ?';
105                            push @values, $value;
106                    }
107            } elsif ( $how eq 'substrings' ) {
108                    foreach my $substring ( @{ $what->{substrings} } ) {
109                            my $name = $what->{type} || warn "ERROR: no type?";
110                            while ( my($op,$value) = each %$substring ) {
111                                    push @limits, __sql_column($name) . ' LIKE ?';
112                                    if ( $op eq 'any' ) {
113                                            $value = '%' . $value . '%';
114                                    } else {
115                                            warn "UNSUPPORTED: op $op - using plain $value";
116                                    }
117                                    push @values, $value;
118                            }
119                    }
120            } elsif ( $how eq 'present' ) {
121                    my $name = __sql_column( $what );
122                    push @limits, "$name IS NOT NULL and length($name) > 1";
123                    ## XXX length(foo) > 1 to avoid empty " " strings
124            } else {
125                    warn "UNSUPPORTED: how $how what ",dump( $what );
126            }
127    }
128    
129  # the search operation  # the search operation
130  sub search {  sub search {
131          my $self = shift;          my $self = shift;
# Line 107  sub search { Line 140  sub search {
140          if ( $reqData->{'filter'} ) {          if ( $reqData->{'filter'} ) {
141    
142                  my $sql_where = '';                  my $sql_where = '';
143                  my @values;                  @values = ();
144    
145                  foreach my $join_with ( keys %{ $reqData->{'filter'} } ) {                  foreach my $join_with ( keys %{ $reqData->{'filter'} } ) {
146    
147                          warn "## join_with $join_with\n";                          warn "## join_with $join_with\n";
148    
149                          my @limits;                          @limits = ();
150    
151                          foreach my $filter ( @{ $reqData->{'filter'}->{ $join_with } } ) {                          foreach my $filter ( @{ $reqData->{'filter'}->{ $join_with } } ) {
152                                  warn "### filter ",dump($filter),$/;                                  warn "### filter ",dump($filter),$/;
153                                  foreach my $how ( keys %$filter ) {                                  foreach my $how ( keys %$filter ) {
154                                          warn "### how $how\n";                                          if ( $how eq 'or' ) {
155                                          if ( $how eq 'equalityMatch' && defined $filter->{$how} ) {                                                  __ldap_search_to_sql( %$_ ) foreach ( @{ $filter->{$how} } );
                                                 my $name = $filter->{$how}->{attributeDesc} || warn "ERROR: no attributeDesc?";  
                                                 my $value = $filter->{$how}->{assertionValue} || warn "ERROR: no assertionValue?";  
                                                 if ( ! $ldap_ignore->{ $name } ) {  
                                                                 push @limits, __sql_column($name) . ' = ?';  
                                                                 push @values, $value;  
                                                 }  
                                         } elsif ( $how eq 'substrings' ) {  
                                                 foreach my $substring ( @{ $filter->{$how}->{substrings} } ) {  
                                                         my $name = $filter->{$how}->{type} || warn "ERROR: no type?";  
                                                         while ( my($op,$value) = each %$substring ) {  
                                                                 push @limits, __sql_column($name) . ' LIKE ?';  
                                                                 if ( $op eq 'any' ) {  
                                                                         $value = '%' . $value . '%';  
                                                                 } else {  
                                                                         warn "UNSUPPORTED: op $op - using plain $value";  
                                                                 }  
                                                                 push @values, $value;  
                                                         }  
                                                 }  
                                         } elsif ( $how eq 'present' ) {  
                                                 my $name = __sql_column( $filter->{$how} );  
                                                 push @limits, "$name IS NOT NULL and length($name) > 1";  
                                                 ## XXX length(foo) > 1 to avoid empty " " strings  
156                                          } else {                                          } else {
157                                                  warn "UNSUPPORTED: how $how ",dump( $filter );                                                  __ldap_search_to_sql( $how, $filter->{$how} );
158                                          }                                          }
159                                          warn "## limits ",dump(@limits), " values ",dump(@values);                                          warn "## limits ",dump(@limits), " values ",dump(@values);
160                                  }                                  }
Legend:
Removed from v.38  
changed lines
  Added in v.39
  ViewVC Help
Powered by ViewVC 1.1.26