]> git.sur5r.net Git - openldap/blob - servers/slapd/filterentry.c
Initial revision
[openldap] / servers / slapd / filterentry.c
1 /* filterentry.c - apply a filter to an entry */
2
3 #include <stdio.h>
4 #include <string.h>
5 #include <sys/types.h>
6 #include <sys/socket.h>
7 #ifdef sunos5
8 #include "regexpr.h"
9 #else
10 #include "regex.h"
11 #endif
12 #include "slap.h"
13
14 extern Attribute        *attr_find();
15 extern char             *first_word();
16 extern char             *next_word();
17 extern char             *phonetic();
18 extern char             *re_comp();
19
20 #ifndef sunos5
21 extern pthread_mutex_t  regex_mutex;
22 #endif
23
24 static int      test_filter_list();
25 static int      test_substring_filter();
26 static int      test_ava_filter();
27 static int      test_approx_filter();
28 static int      test_presence_filter();
29
30 /*
31  * test_filter - test a filter against a single entry.
32  * returns      0       filter matched
33  *              -1      filter did not match
34  *              >0      an ldap error code
35  */
36
37 int
38 test_filter(
39     Backend     *be,
40     Connection  *conn,
41     Operation   *op,
42     Entry       *e,
43     Filter      *f
44 )
45 {
46         int     rc;
47
48         Debug( LDAP_DEBUG_FILTER, "=> test_filter\n", 0, 0, 0 );
49
50         switch ( f->f_choice ) {
51         case LDAP_FILTER_EQUALITY:
52                 Debug( LDAP_DEBUG_FILTER, "    EQUALITY\n", 0, 0, 0 );
53                 rc = test_ava_filter( be, conn, op, e, &f->f_ava,
54                     LDAP_FILTER_EQUALITY );
55                 break;
56
57         case LDAP_FILTER_SUBSTRINGS:
58                 Debug( LDAP_DEBUG_FILTER, "    SUBSTRINGS\n", 0, 0, 0 );
59                 rc = test_substring_filter( be, conn, op, e, f );
60                 break;
61
62         case LDAP_FILTER_GE:
63                 Debug( LDAP_DEBUG_FILTER, "    GE\n", 0, 0, 0 );
64                 rc = test_ava_filter( be, conn, op, e, &f->f_ava,
65                     LDAP_FILTER_GE );
66                 break;
67
68         case LDAP_FILTER_LE:
69                 Debug( LDAP_DEBUG_FILTER, "    LE\n", 0, 0, 0 );
70                 rc = test_ava_filter( be, conn, op, e, &f->f_ava,
71                     LDAP_FILTER_LE );
72                 break;
73
74         case LDAP_FILTER_PRESENT:
75                 Debug( LDAP_DEBUG_FILTER, "    PRESENT\n", 0, 0, 0 );
76                 rc = test_presence_filter( be, conn, op, e, f->f_type );
77                 break;
78
79         case LDAP_FILTER_APPROX:
80                 Debug( LDAP_DEBUG_FILTER, "    APPROX\n", 0, 0, 0 );
81                 rc = test_approx_filter( be, conn, op, e, &f->f_ava );
82                 break;
83
84         case LDAP_FILTER_AND:
85                 Debug( LDAP_DEBUG_FILTER, "    AND\n", 0, 0, 0 );
86                 rc = test_filter_list( be, conn, op, e, f->f_and,
87                     LDAP_FILTER_AND );
88                 break;
89
90         case LDAP_FILTER_OR:
91                 Debug( LDAP_DEBUG_FILTER, "    OR\n", 0, 0, 0 );
92                 rc = test_filter_list( be, conn, op, e, f->f_or,
93                     LDAP_FILTER_OR );
94                 break;
95
96         case LDAP_FILTER_NOT:
97                 Debug( LDAP_DEBUG_FILTER, "    NOT\n", 0, 0, 0 );
98                 rc = (! test_filter( be, conn, op, e, f->f_not ) );
99                 break;
100
101         default:
102                 Debug( LDAP_DEBUG_ANY, "    unknown filter type %d\n",
103                     f->f_choice, 0, 0 );
104                 rc = -1;
105         }
106
107         Debug( LDAP_DEBUG_FILTER, "<= test_filter %d\n", rc, 0, 0 );
108         return( rc );
109 }
110
111 static int
112 test_ava_filter(
113     Backend     *be,
114     Connection  *conn,
115     Operation   *op,
116     Entry       *e,
117     Ava         *ava,
118     int         type
119 )
120 {
121         int             i, rc;
122         Attribute       *a;
123
124         if ( be != NULL && ! access_allowed( be, conn, op, e, ava->ava_type,
125             &ava->ava_value, op->o_dn, ACL_SEARCH ) ) {
126                 return( -2 );
127         }
128
129         if ( (a = attr_find( e->e_attrs, ava->ava_type )) == NULL ) {
130                 return( -1 );
131         }
132
133         if ( a->a_syntax == 0 ) {
134                 a->a_syntax = attr_syntax( ava->ava_type );
135         }
136         for ( i = 0; a->a_vals[i] != NULL; i++ ) {
137                 rc = value_cmp( a->a_vals[i], &ava->ava_value, a->a_syntax,
138                     3 );
139
140                 switch ( type ) {
141                 case LDAP_FILTER_EQUALITY:
142                         if ( rc == 0 ) {
143                                 return( 0 );
144                         }
145                         break;
146
147                 case LDAP_FILTER_GE:
148                         if ( rc > 0 ) {
149                                 return( 0 );
150                         }
151                         break;
152
153                 case LDAP_FILTER_LE:
154                         if ( rc < 0 ) {
155                                 return( 0 );
156                         }
157                         break;
158                 }
159         }
160
161         return( 1 );
162 }
163
164 static int
165 test_presence_filter(
166     Backend     *be,
167     Connection  *conn,
168     Operation   *op,
169     Entry       *e,
170     char        *type
171 )
172 {
173         if ( be != NULL && ! access_allowed( be, conn, op, e, type, NULL,
174             op->o_dn, ACL_SEARCH ) ) {
175                 return( -2 );
176         }
177
178         return( attr_find( e->e_attrs, type ) != NULL ? 0 : -1 );
179 }
180
181 static int
182 test_approx_filter(
183     Backend     *be,
184     Connection  *conn,
185     Operation   *op,
186     Entry       *e,
187     Ava         *ava
188 )
189 {
190         char            *w1, *w2, *c1, *c2;
191         int             i, rc, match;
192         Attribute       *a;
193
194         if ( be != NULL && ! access_allowed( be, conn, op, e, ava->ava_type,
195             NULL, op->o_dn, ACL_SEARCH ) ) {
196                 return( -2 );
197         }
198
199         if ( (a = attr_find( e->e_attrs, ava->ava_type )) == NULL ) {
200                 return( -1 );
201         }
202
203         /* for each value in the attribute */
204         for ( i = 0; a->a_vals[i] != NULL; i++ ) {
205                 /*
206                  * try to match words in the filter value in order
207                  * in the attribute value.
208                  */
209
210                 w2 = a->a_vals[i]->bv_val;
211                 /* for each word in the filter value */
212                 for ( w1 = first_word( ava->ava_value.bv_val ); w1 != NULL;
213                     w1 = next_word( w1 ) ) {
214                         if ( (c1 = phonetic( w1 )) == NULL ) {
215                                 break;
216                         }
217
218                         /*
219                          * for each word in the attribute value from
220                          * where we left off...
221                          */
222                         for ( w2 = first_word( w2 ); w2 != NULL;
223                             w2 = next_word( w2 ) ) {
224                                 c2 = phonetic( w2 );
225                                 if ( strcmp( c1, c2 ) == 0 ) {
226                                         break;
227                                 }
228                         }
229                         free( c1 );
230                         free( c2 );
231
232                         /*
233                          * if we stopped because we ran out of words
234                          * before making a match, go on to the next
235                          * value.  otherwise try to keep matching
236                          * words in this value from where we left off.
237                          */
238                         if ( w2 == NULL ) {
239                                 break;
240                         } else {
241                                 w2 = next_word( w2 );
242                         }
243                 }
244                 /*
245                  * if we stopped because we ran out of words we
246                  * have a match.
247                  */
248                 if ( w1 == NULL ) {
249                         return( 0 );
250                 }
251         }
252
253         return( 1 );
254 }
255
256 static int
257 test_filter_list(
258     Backend     *be,
259     Connection  *conn,
260     Operation   *op,
261     Entry       *e,
262     Filter      *flist,
263     int         ftype
264 )
265 {
266         int     rc, nomatch;
267         Filter  *f;
268
269         Debug( LDAP_DEBUG_FILTER, "=> test_filter_list\n", 0, 0, 0 );
270
271         nomatch = 1;
272         for ( f = flist; f != NULL; f = f->f_next ) {
273                 if ( test_filter( be, conn, op, e, f ) != 0 ) {
274                         if ( ftype == LDAP_FILTER_AND ) {
275                                 Debug( LDAP_DEBUG_FILTER,
276                                     "<= test_filter_list 1\n", 0, 0, 0 );
277                                 return( 1 );
278                         }
279                 } else {
280                         nomatch = 0;
281                 }
282         }
283
284         Debug( LDAP_DEBUG_FILTER, "<= test_filter_list %d\n", nomatch, 0, 0 );
285         return( nomatch );
286 }
287
288 static void
289 strcpy_special( char *d, char *s )
290 {
291         for ( ; *s; s++ ) {
292                 switch ( *s ) {
293                 case '.':
294                 case '\\':
295                 case '[':
296                 case ']':
297                 case '*':
298                 case '+':
299                 case '^':
300                 case '$':
301                         *d++ = '\\';
302                         /* FALL */
303                 default:
304                         *d++ = *s;
305                 }
306         }
307         *d = '\0';
308 }
309
310 static int
311 test_substring_filter(
312     Backend     *be,
313     Connection  *conn,
314     Operation   *op,
315     Entry       *e,
316     Filter      *f
317 )
318 {
319         Attribute       *a;
320         int             i, rc;
321         char            *p, *end, *realval, *tmp;
322         char            pat[BUFSIZ];
323         char            buf[BUFSIZ];
324         struct berval   *val;
325
326         Debug( LDAP_DEBUG_FILTER, "begin test_substring_filter\n", 0, 0, 0 );
327
328         if ( be != NULL && ! access_allowed( be, conn, op, e, f->f_sub_type,
329             NULL, op->o_dn, ACL_SEARCH ) ) {
330                 return( -2 );
331         }
332
333         if ( (a = attr_find( e->e_attrs, f->f_sub_type )) == NULL ) {
334                 return( -1 );
335         }
336
337         if ( a->a_syntax & SYNTAX_BIN ) {
338                 Debug( LDAP_DEBUG_FILTER, "test_substring_filter bin attr\n",
339                     0, 0, 0 );
340                 return( -1 );
341         }
342
343         /*
344          * construct a regular expression corresponding to the
345          * filter and let regex do the work
346          */
347
348         pat[0] = '\0';
349         p = pat;
350         end = pat + sizeof(pat) - 2;    /* leave room for null */
351         if ( f->f_sub_initial != NULL ) {
352                 strcpy( p, "^" );
353                 p = strchr( p, '\0' );
354                 /* 2 * in case every char is special */
355                 if ( p + 2 * strlen( f->f_sub_initial ) > end ) {
356                         Debug( LDAP_DEBUG_ANY, "not enough pattern space\n",
357                             0, 0, 0 );
358                         return( -1 );
359                 }
360                 strcpy_special( p, f->f_sub_initial );
361                 p = strchr( p, '\0' );
362         }
363         if ( f->f_sub_any != NULL ) {
364                 for ( i = 0; f->f_sub_any[i] != NULL; i++ ) {
365                         /* ".*" + value */
366                         if ( p + 2 * strlen( f->f_sub_any[i] ) + 2 > end ) {
367                                 Debug( LDAP_DEBUG_ANY,
368                                     "not enough pattern space\n", 0, 0, 0 );
369                                 return( -1 );
370                         }
371                         strcpy( p, ".*" );
372                         p = strchr( p, '\0' );
373                         strcpy_special( p, f->f_sub_any[i] );
374                         p = strchr( p, '\0' );
375                 }
376         }
377         if ( f->f_sub_final != NULL ) {
378                 /* ".*" + value */
379                 if ( p + 2 * strlen( f->f_sub_final ) + 2 > end ) {
380                         Debug( LDAP_DEBUG_ANY, "not enough pattern space\n",
381                             0, 0, 0 );
382                         return( -1 );
383                 }
384                 strcpy( p, ".*" );
385                 p = strchr( p, '\0' );
386                 strcpy_special( p, f->f_sub_final );
387                 p = strchr( p, '\0' );
388                 strcpy( p, "$" );
389         }
390
391         /* compile the regex */
392 #ifdef sunos5
393         if ( (p = compile( pat, NULL, NULL )) == NULL ) {
394                 Debug( LDAP_DEBUG_ANY, "compile failed (%s)\n", p, 0, 0 );
395                 return( -1 );
396         }
397 #else /* sunos5 */
398         pthread_mutex_lock( &regex_mutex );
399         if ( (p = re_comp( pat )) != 0 ) {
400                 Debug( LDAP_DEBUG_ANY, "re_comp failed (%s)\n", p, 0, 0 );
401                 pthread_mutex_unlock( &regex_mutex );
402                 return( -1 );
403         }
404 #endif /* sunos5 */
405
406         /* for each value in the attribute see if regex matches */
407         for ( i = 0; a->a_vals[i] != NULL; i++ ) {
408                 val = a->a_vals[i];
409                 tmp = NULL;
410                 if ( val->bv_len < sizeof(buf) ) {
411                         strcpy( buf, val->bv_val );
412                         realval = buf;
413                 } else {
414                         tmp = (char *) ch_malloc( val->bv_len + 1 );
415                         strcpy( tmp, val->bv_val );
416                         realval = tmp;
417                 }
418                 value_normalize( realval, a->a_syntax );
419
420 #ifdef sunos5
421                 rc = step( realval, p );
422 #else /* sunos5 */
423                 rc = re_exec( realval );
424 #endif /* sunos5 */
425
426                 if ( tmp != NULL ) {
427                         free( tmp );
428                 }
429                 if ( rc == 1 ) {
430 #ifdef sunos5
431                         free( p );
432 #else /* sunos5 */
433                         pthread_mutex_unlock( &regex_mutex );
434 #endif /* sunos5 */
435                         return( 0 );
436                 }
437         }
438 #ifdef sunos5
439         free( p );
440 #else /* sunos5 */
441         pthread_mutex_unlock( &regex_mutex );
442 #endif /* sunos5 */
443
444         Debug( LDAP_DEBUG_FILTER, "end test_substring_filter 1\n", 0, 0, 0 );
445         return( 1 );
446 }