]> git.sur5r.net Git - openldap/blob - servers/slapd/str2filter.c
Fix idle timeout code.
[openldap] / servers / slapd / str2filter.c
1 /* str2filter.c - parse an rfc 1588 string filter */
2 /*
3  * Copyright 1998-1999 The OpenLDAP Foundation, All Rights Reserved.
4  * COPYING RESTRICTIONS APPLY, see COPYRIGHT file
5  */
6
7 #include "portable.h"
8
9 #include <stdio.h>
10
11 #include <ac/string.h>
12 #include <ac/ctype.h>
13 #include <ac/socket.h>
14
15 #include "slap.h"
16 #include <ldap_pvt.h>
17
18 static char     *find_matching_paren(char *s);
19 static Filter   *str2list(char *str, long unsigned int ftype);
20 static Filter   *str2simple(char *str);
21 static int      str2subvals(char *val, Filter *f);
22
23 Filter *
24 str2filter( char *str )
25 {
26         Filter  *f = NULL;
27         char    *end, *freeme;
28
29         Debug( LDAP_DEBUG_FILTER, "str2filter \"%s\"\n", str, 0, 0 );
30
31         if ( str == NULL || *str == '\0' ) {
32                 return( NULL );
33         }
34
35         str = freeme = ch_strdup( str );
36
37         switch ( *str ) {
38         case '(':
39                 if ( (end = find_matching_paren( str )) == NULL ) {
40                         filter_free( f );
41                         free( freeme );
42                         return( NULL );
43                 }
44                 *end = '\0';
45
46                 str++;
47                 switch ( *str ) {
48                 case '&':
49                         Debug( LDAP_DEBUG_FILTER, "str2filter: AND\n",
50                             0, 0, 0 );
51
52                         str++;
53                         f = str2list( str, LDAP_FILTER_AND );
54                         break;
55
56                 case '|':
57                         Debug( LDAP_DEBUG_FILTER, "put_filter: OR\n",
58                             0, 0, 0 );
59
60                         str++;
61                         f = str2list( str, LDAP_FILTER_OR );
62                         break;
63
64                 case '!':
65                         Debug( LDAP_DEBUG_FILTER, "put_filter: NOT\n",
66                             0, 0, 0 );
67
68                         str++;
69                         f = str2list( str, LDAP_FILTER_NOT );
70                         break;
71
72                 default:
73                         Debug( LDAP_DEBUG_FILTER, "str2filter: simple\n",
74                             0, 0, 0 );
75
76                         f = str2simple( str );
77                         break;
78                 }
79                 *end = ')';
80                 break;
81
82         default:        /* assume it's a simple type=value filter */
83                 Debug( LDAP_DEBUG_FILTER, "str2filter: default\n", 0, 0,
84                     0 );
85
86                 f = str2simple( str );
87                 break;
88         }
89
90         free( freeme );
91         return( f );
92 }
93
94 /*
95  * Put a list of filters like this "(filter1)(filter2)..."
96  */
97
98 static Filter *
99 str2list( char *str, unsigned long ftype )
100 {
101         Filter  *f;
102         Filter  **fp;
103         char    *next;
104         char    save;
105
106         Debug( LDAP_DEBUG_FILTER, "str2list \"%s\"\n", str, 0, 0 );
107
108         f = (Filter *) ch_calloc( 1, sizeof(Filter) );
109         f->f_choice = ftype;
110         fp = &f->f_list;
111
112         while ( *str ) {
113                 while ( *str && isspace( (unsigned char) *str ) )
114                         str++;
115                 if ( *str == '\0' )
116                         break;
117
118                 if ( (next = find_matching_paren( str )) == NULL ) {
119                         filter_free( f );
120                         return( NULL );
121                 }
122                 save = *++next;
123                 *next = '\0';
124
125                 /* now we have "(filter)" with str pointing to it */
126                 if ( (*fp = str2filter( str )) == NULL ) {
127                         filter_free( f );
128                         *next = save;
129                         return( NULL );
130                 }
131                 *next = save;
132
133                 str = next;
134                 fp = &(*fp)->f_next;
135         }
136         *fp = NULL;
137
138         return( f );
139 }
140
141 static Filter *
142 str2simple( char *str )
143 {
144         Filter          *f;
145         char            *s;
146         char            *value, savechar;
147
148         Debug( LDAP_DEBUG_FILTER, "str2simple \"%s\"\n", str, 0, 0 );
149
150         if ( (s = strchr( str, '=' )) == NULL ) {
151                 return( NULL );
152         }
153         value = s + 1;
154         *s-- = '\0';
155         savechar = *s;
156
157         f = (Filter *) ch_calloc( 1, sizeof(Filter) );
158
159         switch ( *s ) {
160         case '<':
161                 f->f_choice = LDAP_FILTER_LE;
162                 *s = '\0';
163                 break;
164         case '>':
165                 f->f_choice = LDAP_FILTER_GE;
166                 *s = '\0';
167                 break;
168         case '~':
169                 f->f_choice = LDAP_FILTER_APPROX;
170                 *s = '\0';
171                 break;
172         default:
173                 if ( ldap_pvt_find_wildcard( value ) == NULL ) {
174                         f->f_choice = LDAP_FILTER_EQUALITY;
175                 } else if ( strcmp( value, "*" ) == 0 ) {
176                         f->f_choice = LDAP_FILTER_PRESENT;
177                 } else {
178                         f->f_choice = LDAP_FILTER_SUBSTRINGS;
179                         f->f_sub_type = ch_strdup( str );
180                         if ( str2subvals( value, f ) != 0 ) {
181                                 filter_free( f );
182                                 *(value-1) = '=';
183                                 return( NULL );
184                         }
185                         *(value-1) = '=';
186                         return( f );
187                 }
188                 break;
189         }
190
191         if ( f->f_choice == LDAP_FILTER_PRESENT ) {
192                 f->f_type = ch_strdup( str );
193         } else {
194                 f->f_avtype = ch_strdup( str );
195                 f->f_avvalue.bv_val = ch_strdup( value );
196                 ldap_pvt_filter_value_unescape( f->f_avvalue.bv_val );
197                 f->f_avvalue.bv_len = strlen( value );
198         }
199
200         *s = savechar;
201         *(value-1) = '=';
202         return( f );
203 }
204
205 static int
206 str2subvals( char *val, Filter *f )
207 {
208         char    *nextstar, *freeme;
209         int     gotstar;
210
211         Debug( LDAP_DEBUG_FILTER, "str2subvals \"%s\"\n", val, 0, 0 );
212
213         val = freeme = ch_strdup( val );
214         gotstar = 0;
215         while ( val != NULL && *val ) {
216                 if ( (nextstar = ldap_pvt_find_wildcard( val )) != NULL )
217                         *nextstar++ = '\0';
218
219                 ldap_pvt_filter_value_unescape( val );
220                 if ( gotstar == 0 ) {
221                         f->f_sub_initial = ch_strdup( val );
222                 } else if ( nextstar == NULL ) {
223                         f->f_sub_final = ch_strdup( val );
224                 } else {
225                         charray_add( &f->f_sub_any, val );
226                 }
227
228                 gotstar = 1;
229                 val = nextstar;
230         }
231
232         free( freeme );
233         return( 0 );
234 }
235
236 /*
237  * find_matching_paren - return a pointer to the right paren in s matching
238  * the left paren to which *s currently points
239  */
240
241 static char *
242 find_matching_paren( char *s )
243 {
244         int     balance, escape;
245
246         balance = 0;
247         escape = 0;
248         for ( ; *s; s++ ) {
249                 if ( escape == 0 ) {
250                         if ( *s == '(' )
251                                 balance++;
252                         else if ( *s == ')' )
253                                 balance--;
254                 }
255                 if ( balance == 0 ) {
256                         return( s );
257                 }
258                 if ( *s == '\\' && ! escape )
259                         escape = 1;
260                 else
261                         escape = 0;
262         }
263
264         return( NULL );
265 }